EDUCATION ET INFORMATIQUE 



A VOS MARQUES 



CALENDRIER DES JOURNEES 
GRATUITES TEXAS. 
Organises par TEXAS INSTRU 
MENTSet D.O.M.. avec le con 
cours d'HEBDOGICIEL. jour 
nees gratuites concemant I'uti 
lisation des calculatrices pro 
grammables ou non. en milieu 
scolaire et animees par Roger 
DID!, specialiste en la matiere. 
Renseignements et inscrip- 
tions : OPTIMA CONSEIL, Tel. : 
(7) 884.60.06, ou au journal. 



Dates : 

30 Mai STRASBOURG 

6 Juin GRENOBLE 

13 Jum LYON 

20 Juin CLERMONT-FERRAND. 



LES VEINARDS 



Votci la hste des premiers eta- 
blissements beneficiant du pret 
d'ordinateurs. Le choix fut diffi- 
cile, les demandes etant nom- 
breuses et variees. 



II nous a semble necessaire de 
privilegier dans un premier 
temps, les etablissements de 
province ne possedant pas (ou 
si peu) de materiel. 
Pour les autres pas de RO.E. ! 
Du moins. pour I'instant, puis- 
que les candidatures sont etu- 
diees avec soin. Nous essaie- 
rons de contacter tout le monde 
dans la mesure de nos possibili- 
tes, Seul le theme essentiel des 
projets apparait dans cette lisle, 
les experimentations proposees 
se presentant souvent sous Ja 
forme de volumineux dossiers, 

Maison des jeunes et de la cul- 
ture ESTRABLIN, commune de 
2800 habitants, developpement 
de la micro -informati que en 
milieu rural 

Utilisation grand public et peda- 
gogique. 

Contact : Marc CHAMAY profes- 
seur en Maths ENNA de LYON. 
M05 ou T07 

Ecole annexe Hdpital Psych. a- 
trique. LA ROCHELLE. Simula- 
tion et creation de situations 
dapprentissage en rapport avec 
les potentialites des enfants 
grace a un outil depourvu d'af- 
fectivite. 
Materiel ; M05 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilteur programme CHAQUE MOIS. 
1 voyage en Californie pour le meiNeur logiciel CHAOUE TRI- 
MESTRE (Reglement en page interieure) 



Contact : BEYMichel. instituteur 
specialise. 

ECOLE DE BEAUVALLON. 26220 
DIEULEFIT. Institut Medico- 
pedagogique Prive. enfants 
caracteriels. Mise a profit des 
proprietes ludiques et creatives 
de I'ordinateur dans le cadre 
des matteres essentielles {fran- 
cais. anglais, maths). 
Contact : E. WH1TENER. profes- 
s^ur d'anglais. 

Ecole Primaire EP1NEAU LES 
VOVES 89400 MIGENNES. Ecole 
a deux classes. 

Contact : M.J. MEISTER. Direc- 
trice. 
CBM 64 

Ecole de PICOTIERES OUEST 
83110 SANARY 

Classe de perfectionnement. 
Lettre publiee dans HEBDOGI- 
CIEL. Aspect ludique et educatif 
de I'ordinateur. 
T07 

Contact : J. FAGE. Instituteur. 
CEP "LA FLORIDE" MARSEILLE 
E.A.O. et club informatique 
CBM 64 

Contact ; Jean-Marc MAZIZA, 
professeur d'electrotechnique. 
Ecole de garcons. LA CHAPTLLE 
SAINT-LUC. 10600. Utilisation de 
Logo, travail individualise bene- 
fique aux eleves en difficulty. 
COM. 64 
Contact: 

M. Andre MEIRHAEGHE. 
Lyc6e Prive Technique Indus- 
trie! St-Joseph, 44230 SAINT- 
SEBASTIEN SUR LOIRE. 
Adapter les eleves de la section 
electromenager a r utilisation 
des moyens informatiques (ges- 
tion de centre, de ventes et ser- 
vices apres vente. etc..) 
Contact : M. Lucien LE BERRE. 
Chef d'Atelier. 



EDITO 



A I'heure ou j'ecris ces lignes. il 
n'y a que trois jours que le pre- 
mier SOFT-PARADE est paru 
dans I'hebdo et vous etes deja 
plusieurs centaines a nous avoir 
envoys des commandes de logi- 
ciels. A croire que vos fournis- 
seurs habituels exagerent vrai- 
ment sur les prix des logiciels. 
cela ne m'etonnerait qu'a moitie 
car j'ai releve des ecarts de prix 
assez fous dans quelques bouti- 
ques parisiennes : cela va de 
quelques francs plus cher que 
nous jusqu'a 67 % de difference ! 
Ces revendeurs ont d'ailleurs de 
la chance que la publicite com- 
parative soit interdite en France. 
car nous nous serions fait unma- 
lin plaisir d'en publier une liste 
ici. Nous avons d'ailleurs pris 
quelques jours de retard dans 
rexpedition des logiciels com- 
mandes a cause de I'abondance 
des commandes. n'aye2 crainte 
nous sommes en train de rattra- 
per ce leger retard et !a nouvelle 
organisation que nous venons 
de mettre en place va nous per- 
mettre de vous livrer encore plus 
vite. De toute facon. contraire- 
ment a plusieurs societes qui 
ont la facheuse habitude d'en- 
caisser les cheques avant de li- 
vrer le materiel commande, nous 
n'encaissons pas les cheques 
avant d'effectuer rexpedition 
des logiciels en recommande, 
sous aucun pretexte. 

Nous sommes au Sicob, niveau 3 
E 540. depuis lundi et jusqu'a de- 
main Samedi. j'espere que vous 
viendrez nombreux nous voir. 
Nous avons degote quelques 
nouveautes a vous montrer ; 



deux superbes modules de jeu 
pour Texas et nous avons egale- 
ment la nouvelle tablette Chalk 
Board avec ses logiciels que 
nous a prete la societe Ormond 
Electronics- 
Gerard CECCALDI 



MENU 



APPLE II 


Devis 


J.P DUBOS 


Page 6 


CANON X-07 


Labyr 


Frederic BENOIST 


Page 9 


CASIO FX 702 P 


Bomber 


P BOCQUET 


Page 14 


COMMODORE 64 Champ de mines 


David BROUT 


Page 4 


VIC 20 


Bagnard 


Denis BEAUVOIS 


Page 7 


HP 41 


Missile 


Eric MATHIAUD 


Pages 


MPFII 


Fute 


Emmanuel GUILLORY Page 3 


ORIC 1 Probleme du charpentier 


Pierre BAYLE 


Page 1 5 


MZ80 


Scrabie 


Bruno HENRY 


Page 18 


PC 1211 


Co ff re -fort 


Joel PEGLION 


Page 3 


PC 1500 


Monkey-Kong 


DELBOS 


Page 4 


ZX81 


Le Yeti altaquo 


Gilbert BOUDOT 


Page 1 7 


SPECTRUM 


DCdale 


Fabnce PARROUR 


Page 9 


TRS80 


Transat 


J.E deLIGONDES 


Page 5 


Ti99 4/A(b.s.) 


Cite maudite 


Eric AUDREN 


Page 16 


TI99 4/A{b.e.) 


Star fighters 


Christophe FILLGRAFF Paqe 2 


THOMSON T07 


Isola 


J.M. TOURBE 


Page 19 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET ME 
CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
HEWLETT PACKARD HP 41 . MULTITECH MP - F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 

HlPPOREBUS trouvez lexpression qui se cache dans la B D de I'hippocampe Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec I'mformatique 
'solution en page tnterteure) 




V IN O^ 18 Mai 1984 J 



Allemagne 3.50 DM - Belgique 55 Frs - Canada 2,50 % - Luxembourg 57 Frs - Suisse 3 Frs - 



STAR FIGHTERS 



Abattez les ovnis et profitez de vos lasers avant d'affronter 
des champs d'asteroides ou vous ne pourrez que slalo- 
mer... Vos lasers etant inhibes. 

Christophe FILLGRAFF 

Mode d'emploi : 

Vftrifie* que la louche "Alpha Lock" est relevee. Ulilisez ta manette 1 

pour piacer I'ovni sous votre viseur... ou evilez les asteroides. 



IOC DIM v.l*!.-.' 

1 tO KANDOHIT-E 

120 C.VL MAGNIFVI3) 

ISO CALL BOKENOt : i CftLL COLOR !■», lfa.1)-. i CALL COLOR (10, 13, 131 :: CALL COLOR U 1, 1 

3. IS) If CALL CLEAR 

140 CALL COL OR < 13. 1 1,11) :: CALL COLOR! 14, 7, 71 

ISO FOR Q=3 10 B ! : CALL COLOR (O, 2, 1 1 ) ! ! NEXT O 

1AO CALL CHARil04,-FFFFFFFFFFFfTFFF") :: CALL CHAR 1 128, "FFFFFFFFFFFFFFFF") : i CALL 

CHAR 1 13&, -FFFFFFFFFFFFTFFF- 1 
170 CALL CHAR(9&,-00O0O0CK)0OO003030303e>000O00OO000OOO0O00XX^^ 

ISO CALL CHAR(100.'OFOF3030COCOOOOOOOOOOOOOOOOOOOO<>OOOOCOC0303000000000000000000 
00O-) 

1*0 CALL CHARI1 1 2, ~FFFFFFFFFFFFFFFF "1 : : CALL CHAR ( 1 1 h , " 1 OOOOOOOOOOOOOOOOOOOOOOOO 
OOOOOC«0<<IOOOOOOOOOOOOOOOOOOOOOOOOOOOOO-) 

200 CALL CHARU0e.-014O0C0O1938OOO0O42OOO001000O0-XK)O440030000026060OCOOI20000BB 
COO") 

! I -» I J --0O00O000040203077F7FBF040OO0O0000O0O00001020E0F0FEFEF12000000000- 

220 VA»!2>--2O607e£4EOElE3FFFFE3ElEOE4FB6O2OO«O6iF27O7B7C7FFFFC7B7271FO7O4O4" 
i : --000000000000010BO&FF03040B1COOOOOOOOOOOOOOOOBOD060FFC020I0380000- 
240 VA»(4)--Of r OFO:07:»:''-.-F:-r:-;F3J33C3C30COCFOFOCOCiX;OCOFCe4E4FCCCCCC3C33030" 
25* \^»(SI"-0OO0O0O03821437FI3090703OOO00O0OO00O00O03B0ea*FC902C-C09'>0000O0O0" 

MI&] -"<>007O9O3OI4IB387FFB7S34101O30 < >O7O0CO2OBOOOO«a2t;2FEC2B20400BO20C0" 

fttl HCMARI9, 14,12B.7>: : CALL HCHAR( 10, 13. 1 2B.9t : : CALL HCHAR( 11 , t 2, 128. 2t : : 
CALL MCMARtl 1,21. 129,21 :: CALL HCHAR{ I Z. 1 2. 1 2B. 1 1 1 
280 CALL VCHAftt 1 ?, 15. 129.5): : CALL VCHAR» t 1 , 1 7. 1 29) ! ! CALL VCHAR ( 1 1 . 19. 129) : : CAL 
L VCHARM5, 1". ir-a> : : CALL VCHAR ( lb. 15, I 36! : : CALL VCHAR 1 15, 16, 13) 

2*? CALL VCHAR M 7. 16. I3A):: CALL VCHAR < 16. IS. 136. 2) ! : CALL VCHAR < 15. 19. 13&) : ! CA 
LL VCHARM6.20. 136):: CALL VCHAR ( 15. 21 . 1 36) 
SOO DISPLAY AHI2.9) :"STAR FIGHTERS" t: CALL HCHAR ( 12. IS. 129) 

, I -5.700. 147. 120. 173,700, 175,700. 147, 120, 20B 
320 DATA 700.2CB.75t'. \ft>. 137,206, 137. 196.325. 173, 700. 147.4250, I 
--■■ RSJP O.F :: IF D-42T.'> THEN 340 :: CALL SOUND ID. F. to : i GOTO 330 
340 ACCEPT IU1» 
35" FOR D*l TO S :: CALL COLOR <0. I 3. 2) : : NEXT O 

ISPLAY Aid. 1) BEEP ERASE ALLi"VDUS AVEZ MISSION D£- : I DISPLAY AT IS. I ) : "DET 
RUIRE DES ASTEROIDES- 

I SPLAY OT'5.l):"ET DES VAISSEAU* ENNEMIS" :: DISPLAY AT [7, 1 ): "HOSTILE A VOT 
RE —:'.::■ 

T5F-UAY AT(13. 1>: "ATTENTION: VOUS NE DISPOSE!" :: DISPLAY AT ( 15. I ) t "DUE DE 2 
MISSILES NE LES" n DISPLAY AT ( I 7. 1 ) : -GABPILLER PAS. " 
590 DISPLAY ATI23. 1): "BONNE CHASSE ' " :: ACCEPT ATI24. 1 > :UIU« II CALL CLEAR 

.1 CLEAF. :: DISPLAY AT 1 1 . 1 1 : "STAR FIGHTERS" :: DISPLAY AT(2.1>:" 

" :: DISFLAY AT<5. I ) 1 "COPVRIQHTl " :: DISPLAY AII7. 2i : "F ILLGRAFF CHRIS 

410 SCO-:- :: CP-20 :: TRA-" 
42" FOR A=5 TO 28 

L SPRITE (tA.l I6.INTfA/3)*3.92. I 24 . A- INT (RND-4. 5) -2. 25*A/2-SGN{| 

: M-31 -r.25*A.'2»SGN(RN0-.5) > 
«40 NEXT A 

■ - 



tv 



99 *'* ^<&&* 



fc* 



&& 



460 CALL HCHARI24.7. 104):: CALL HCHARI24.2 
HCHAR! 12, 19, 112) I I CALL VCHAR ( 10. 14, 1 1 2, 3) 
470 CALL VCMARU0.2O, 112.3):: CALL HCHAR ( I 

CALL VCHARI9. 17.32,7) 
480 P0Y-INTM92»RNO)H :: POX-INT <234»RND) 



):: CALL HCMAR1 I 2. 15, I 1 2) : i I 
112,7111 CALL HCMAR<9. I4.U2 
SO-INT(6»«NO>»1 :: C-INTU2 



490 CALL CHAR ( 124, VA* ISO) J 

300 CALL SPRITEI41,96,7,B3, 125) 

310 CALL SPRITE(42. I24.C.POY.POX) 

320 CALL SPRITE(43, lOO, 12, 182,47) 

330 CALL SPRITE(44,lO0. 12, IH2.207) 

540 CALL SOUND1I0, 1OO0. 12,400.10, IBOO.201 

350 VITV=INT(-25»RND)*13 :: VI TH-INT l-23»RNO) *15 :: CALL NOTIONC12. VI TH. VITV) i i 

CALL KEYIl.O.W):: IF D-I8 THEN 390 

360 CALL JOYSTIl.T.V): : CALL M0TIONC42. VITH* !-3»Y> , VITV* (3»T> ) 

370 DISPLAY AT ( 1 , 5)SI ZE (9) : "LASER: - I CP :: DISPLAY AT ( t . 17) : "SCORE: " ISCO 

5BO GOTO 340 

590 CALL SOUND<200,-7,0>i: CALL MOTION1«3, -120. 103) : : CALL MOT ION(44. - 120, -103) i 




630 CALL COLOR!*: 

IOO :: IF CP-0 THEN 700 

640 CALL DELSPRITEIALL): 



7,7): 



6'X) CALL COLOR ( 1 I 
610 CALL MOT I ON <■ 
CATEIB4. 182.207) 
620 CALL CO INC 



O THEN 70O :: GOTO 540 



CALL COlDRUI, 15, 15):: IF ER< 



: CALL PATTERNI42. 109): : CALL SOUND I35.>. -5. 
GOTO 480 
CALL CLEAR :: DISPLAY AT ( 1 . 



. IB3.47): : CALL LO 

THEN 630 : : IF CP- 

SC0-SCO«S0« 

VOTRE MISSION EST TERM! 



ER ?" 

670 CALL KEY(O.H.J):: II 

680 END 

700 CALL DELSPRITEiALL) : 

ARE VOUS A TRAVERSE UN" 

-10 DISPLAY AT!I4, 1) : "CHAMP DE HETEORITES" 

720 FOR 0-1 TO 500 :: NEXT D :: CALL CLEAR 

3 70 CALL CHAR(12O.-O0"102O5OA13IE121E12151OIF05O4000O804OA03OC87848784QAB0SFBAO2 



H=lll THEN 400 :: IF J-O THEN 670 
CALL CLEAR :: TRA-IRA-IO :: DISPLAY AT ! 1 2, 1 ) BEEP: "PREP 



MO CALL CHAR 11 

730 CALL SPRITE <»1, 
DISPLAY AT (12. I ) : "E 1 
"51 FOR DE-1 TO 500 
760 FOR 0»2 TO 10 : 
770 FOR D0=2 TO 10 
780 FOR OO-l TO IRA 
790 CALL J0YSTI1.X.' 
L, 13. £R) 



OOOOOOOIOF 102 I 2420404026 I 807000000 3CC20 2824442924 4 4920 2tt408OO 
0.1):"V0IC1 VOTRE VAlSSEAu" :: 



20. 13. 172. 12G): : DISPLAY AT! 
ITE LES HETEORITES" 
:: NEXT DE :: CALL CLEAR 
CALL SPRITE(»0. 132,6,20, 129 

: HALL «0TIQN<«DQ.VIT*IO»RND 



NEXT 



': : CALL MOT ION (Ml, 
1-FEP: "BONUS: ";OD» 10 



IT-20-RNDI : : NEXT DO 
•2.X"2):: FOR KL*2 TO 10 :: CALL COINC! 
! IF ER--I THEN 840 



CALL DELSPR1TE<ALL) : 

CALL lOTIONdl.O.OI ; 

3,-7,0)1 : FOR D-l TO 2! 

rn 640 



CALL CLEAR : 

CALL COLOR (1 

i :: NEXT D :: 



! SCO-SCO-0D«10 M CP-20 i i .UOTO 
l,7):i CALL PATTERN I •!. 10B) : : L'AL 
SCO-SCO* (OD»10>: I CALL DELSPR1TI 



■/v 




CONFIGURATION DUO : 

- APPltHp 

- MOMIGUBI 

-ouooyt 

-MOVIFUP 

- CAJfrr APT1F IFLl IVDEOIEXTE) 

- souw.apmi * mo/,f mivi 

tfftf "■• 

LOGICIELS SUR OISOUETTES 
POUR APPLE lie ET APPLE IP 48 K 
EOtCSLS 
MAT HS I 



MAINS i 

• tngpnomttne 



EDI-LCXIO 
Lebmnji [..... 

CARIE PQITH ■ 



Vl-R NATHAN 



mjoo 

795.00 



I 490.00 
I W.OO 



LOGICIELS 

POUR LA VIE PROFESSIONNELLE 
POUR APPLE II ET lie 



^commodore 



COMMOOORE 






APM 



VKI54I 

Ir..tpu/de(ouft»riVpt IS20 
CM)-" perilrt 64 

C** ux»o 64 

Programme' rrt gux)F64 



On ITC 




2 990.00 




3 380.00 




1 9S0.OO 




150.00 




150.00 




250.00 





GESTION 

Diirttrui financier IPS.00 

Geii'ondelicn'P'i I IS.OO 
UTTLrTAIRES 

C.V..I4T ?60.00 

D^vjwc AiseniO'm'/Deuwmb'eur 160.00 

ix ham 95.00 
NOUVEAUX LOGICIElS -HAUTE RESOLUTION 

- ANI ATTACK 120,00 

- FffEO 1 20.00 
-FJGHTERPiLOT 120.00 

- NlGHl GUNNEP 120.00 

- BLUE IHUNDFP 120.00 

- BlADf ALLEY 12000 
-HUNCHBACK 120.00 

VI-FI NATHAN 

LOGICIELS POUR SINCLAIR SPECTRUM 
• Croque nombrci 



• Cot'Dw font > 

• OtttnauMMm 

LOGICIELS EOICIEL 



125.00 

125.00 
125 00 



ZX Spectrum Thomson to/7 



INTERFACES 

Spearum 48 KPAL 

C*rtr? 9 entrfn/ionm 

Cmic 8 <*Xf e« .NXiloqinun 

lnterf.xe manrtip tjpjeum 

M^netle Or /run 

MotfuLKruf m-lf noif m bLwK 

krRTimjntp Atph^tom 32 

AmplrfK^irui iorwe 

E»ienuon 12 K 

mrrrf.we Cpn«on«v^S232 

CAWr pour Cwwioniti 

Bo«e S fOolf^ui dr p^«« Alpfi.U'im (J 

Bolle 5 roulr»« de (mow* 

pour imprim^nie 5HVCLAR 

Cordon Pfrnei/Morxieti' 

AdapCMeu P'Virei 

Iryerf^temrtnrtlndrim' pfonr.tmm.iWri 
MOUVEAUX PROOUtrS 



'.' ' rodhqurtte Ywrq? 

IEUX 5U« ROW POUR INTERFACE 2 

■ 
fraruam 

BjcJi .,. ,,„■■■ ... 

JEUX DE REFLEXION 



Pi.. ITC 




1 965.00 


n ! 


395.00 


1 1 


395,00 


1 ; 


245.00 


1 1 


120.00 


1 1 ' 


190.00 


n 


1 190,00 




160,00 


n 


560.00 


1 1 


650,00 


■ ' 


150.00 


n 


150,00 


a 


175.00 


n 


95,00 


i : ■ 


360.00 


1 ' 1 


395,00 


1 ! 



PROMOTION TO/ 7 



MATERIELS THOMSON TO/7 

Urwe (entr.HF 

L«ieuf erneqrtliei.il 

Fitenvon memoiie 16 K 

ConlrilleiiKom 

Sonet jew 

'.■• him n . i '. ■ - 

LOGICIELS ANSWARE 

Budget l^mHul 

Gem wore UMotfteque 

NOUVEAUX LOGICIELS 
EDUCAHFS 
THOMSON TO/7 



■ I! 

Pm nc 

1.480.00 

j 800.00 
'■ IS0.00 
I 8S0.00 
600.00 
, 480.00 

: 4S0.00 
480.00 
490 00 
575 00 



1 035,00 


i : 


351.00 




79.00 


1 i 


185,00 




IIC 00 




lfl',00 




185 00 




185.00 




185.00 




18V 00 




■ 




■ 





l.i ronde dei formn 


145 00 


LOGICIELS DE JEUX THOMSON TO/7 




M^limr'inot 


475.00 


■ " ■!'- [).«M~1 


325.00 


C)ue\( [X> )i,vr..-.- ■ ■ 


65.00 


Oupnjt'Sponj 


6500 


Qiieu (K7 VtierxptM LVrn^lv>•lre^| 


65,00 


turn poka b 1 1 


175.00 


i rxktM 1 


95,00 



iini=li=air-ZX8l 



9*00 




75 00 




54.00 




11500 




1 




■,1 IK! 





C*ie genet* i 

mt ■ ■ if .'■ rx i.".'".i 
C.vlr nKrerv'wnm [9 1 fU 

.. ...... h -,-„,rv 



PfD Mi. 

■ 

140,00 

815.00 
•32.00 

I :.' ■ 
395 00 

IV5.M 
745 00 



tonpntartt giiqttvqut SnkoKiu '00 / 
knpnmanu ,'ipn.noiii 37 
BcAeSreuaNiuvflepapwi 

Boite 5 ifM.T.i.. dep.'p*i 
pout mpnm«ntr SINCLAIR 

'.:,,■ ■ 

NOUVEAU PROOU1T : 

CMOS memo** i oruurMe [7 kpaui 

Module 7 k 4.i|i|iienif> ■!.'■■■■ j, ,',.!,,.. i., 

JEUX 

Inv.KJen 

■ ■ I ''sp.iir 
Stumble 
Rp. Fyrannoutire 

Sroct '■•■ 

JEUX DE REFLEXION 

Oihelo 

Echea 

SanuJauon de vol 

■ ■ kgamtnonl 



Vii-Cli 

H-lltf 



2X Mulltl«l"eix 
UTILITAIRES 
A^semfjieui Aiim 
Monaeui tfewsiemWnii 
FjtM kMdmomoi 16 K 

FMTlOMll lot 64 K 

r,:, ,ii.ii Am 



«0 w 
7 500 00 
I 19000 

I SO 00 



f.5 00 
f.500 
/5.00 

>; (Hi 

■■ ' 
.". 00 
;sih> 

■ 



'.Ml,, 
■■'.,-,> 

1.1 
■■■,,. I, 



I 10 IX) 

ISftOO 
/S.00 

75 110 

15 od 



BON DE COMMANDE 
TARIFS AU 18/5/1984 



Code Postal 

Villc 

Ces prix sont indicatifs et peuvent etre rnodi- 

fles sans preavis. 

Produfts disponibles dans la limite dc nos 
stocks en magasin, 

Participation am frafs de port et d'expedition 
en recommande pour les logiciels : + 30 F. 



LA REGLE A CALCUL : 

65/67, bd Saint -Germain. 75005 PARIS 

Tel. : 325.68.88 

Telex : ETRAV 220064 F/1303 f?AC 



X 
J 



FUTE 



Le jeu utilisant les deux pages graphiques est constttue en 

grande partie en langage machine implante de 1600 H a 

193 FH. 

Une chenille doit se deplacer dans deux labyrinthes diffe- 

rents et y devorer te maximum de pastilles. Bien sur, son 

corps s'allonge et devient vite un handicap ; de plus elle 

est poursuivie par quatre monstres. 

Le passage d'unlabyhntheaJ'autrese fait instantanement 

par les bords gauche et droit de I'ecran. 

Un programme de sauvegarde utilisable dans n'importe 

quel programme. II autorise plusieurs sauvegardes con- 

secutives et numerotees. 



tJVV> 



4* 



Emmanuel GUILLORY 



UTILISATION 

Asuivrealalettre ! 

Recopier d'abord le plus tidelement possible le Basic. Ecrire CALL-159 

et verifier que les cases AF et BO ne depassent pas ED et 15 ; au cas 

contraire supprimer les premieres REM. 

Recopier le langage machine de 1600 H a 193 F H c'est long mais le 

resuitat en vaut la peine ! 

Revenir au Basic et faites RUN 1 Ca marche ! 

Faire CALL-159 et AF : 3F 19 

Revenir vite au Basic et sauver le programme avant la coupure EDF 

Ca ne marche pas ! 

Verifier les CALL du Basic et le langage machine. 




poke io\ : '.•!• 



10 



29 



RE" 

RE" 

RE* 

REH 

RE« PAP 

REM 

RE" POOR i 

HA *IM£W 

poke e?.e I 

P0*E !«!>.?! 
POKE 191.3 
POKE 1*8.129 

■zts'jt 4-0* a 

CALL 6103 

gosue 3100 

A ■ 209 WI ' 
POKE 1.9 ME 



c >c •;■; s 

r-: POKE 1413 
113.22 



POKE 



-Ot-E 
£ 199-4 P0*E 1 
■-■03 WSlft ■'■ 
•.'I 40i?0 CO'UB 

x. 64 03 
FOR i • i ro 3 



1M 

. PEE' C76» 

19* i- i ■ £ : c I 
cau. 6455 

146 jp : - 3 reErt 
ne j ■ sow 

129 IP PEE* 
EM POKE r« 

38 IP PEEK i 
- 2 

i?e ir j . 

131 IP J 

132 IP } ■■ 
135 IP P 

■ PEEK 

utae 7 
169 GOTO 
199 PEP1 l 



I 



S C c •' 



»EE> 



NORMAL • UTAE 2 MTAB 19 
3928 PRINT ■SEHHAKUEL CUILLORYJ" 

INVERSE 
3030 HTAB 19 PRINT ■.lllliuiii;ii:a. 
*■ HOftflAL YTA8 IS HIAB 14 

3938 PRINT •IIUIUIIl'i INUERSE 

NTAB 14. PRINT -IPRESENTEI- KORHAi. 
HrAB 14 PRINT •tttttttttf [NUEftSE 
UTAB 13' NTAB 16 

3060 PRINT -t**l*J" N0R1AL HTAE '. ■ 
PRINT "#P1JTE*" HTAE 16 INUERSE 

PRINT ■IKJIt" NORMAL ' UTAB 21 

MTAB 4 
1979 PRINT 'PRESSED UHE rOtfCriE -:.. : lOfl 
NENCER" CALL 3334' NORNAL POKE M/4 
7999 REM 
3109 POKE 4,119 POKE 29S- POKE I - 

POKE 211.9' POKE 212.9 
3129 RETURN 

7209 s « PEE" .*>-; - 6 - 13 POKE 4.6 
3218 S • PEEK (£11 5 • •; - : POKE 81 
1 > , S P ■ 9 
3279 RETURN 



pp. 



THEM I 

■_L 3632 -■ 
: 9 TMErl J ■ 



I OR J - 6 them 394 
9 rHEN POKE 26>3 

; them :all 3914 

P€E* ' .72) THE-1 P 

7£ ■ CAU. 62?4 MTAE 
PRINT VI 



238 



6229 POKE 219.9 
EN CALL 6193 
SQSUI 409S CA..L 6*33 



OS 4339 
:UE 3299 
£39 POKE '65.2*: CALL 3633 

388 RETURN 

389 UI • 01 + 1 NT-B 39 yTAE 7 
PRINT UI CALL 3632 

378 FOR I " 9 TO 3 CALL 5523 POKE 
.238 CALL 563£ HCXT COS'JB 1799 

POKE 3641.273 CALL 6183 
348 IF UI • 3 THEN UTAE 11 PRINT 
EPMIEPC "IE epui;e-. 



MSUl 3988 HA 
338 OOTO 199 
3999 CALL 3663 
UTAE 1 HTAB 

3092 A» • ' 

3883 FOR I - 1 

NEKT UTAE 

"818 PRINT "II 



TA ' 



CO TO 



'3*9 POKE 99.9 - ■:■ C 61. 32 °OKE 


£ 233 


POKE 63.63 POKE 66.9 POKE 67.6 




call - «sa 




7319 POKE 69-0 POKE 61.160 POKE 


6 3 23 


S POKE 63.191 POKE 66.0 POSE 67 


-'■ 


CALL - 465 




3339 RETURN 




7699 a - 200 POKE 199,9 POKE Mr 

■ 0. 

7619 POKE 69.0 POKE 61.64 POKE 


1 - I 


£ ;33 


POKE 63-95 POKE 66.9 POKE 67.3 




CALL - 463 




7628 POKE 69-9 POKE SlrJS p 0KE 


2 ^53 


POKE 63.127 POKE 66,0 POKS 67 


-;■: 


CALL ■ - 463 




3639 RETURN 




3708 poke 77,1-4 POKE 76-21 CALL 


33*4 


POKE 64,14 POKE 6T 21 CALL 392-: 




7718 R6TORH 




*099 ma :-.. !•>;: "tae 10 mta 


1 


1991 PRINT -PftCSKZ 0"t«ORTI€>" 




UTAE tt> HTAE 11 PRINT "l«(JEU 




UTAE 1* HTAE It PRIMT "£• 5AJ 


■ s;-RC 


E>" ' SET A* PRI'lT :HPf i f ■ 




i.;.)2 - ■ -^ -» If A < * >" 1 




> 2 THEN 4990 




1083 ON A SOTO *«J-fill« 




•4)04! CALL - 1103 




1006 POKE 21' POKE 1910- 2.1 




POKE 10111?* POKE 191- 14! 




4087 END 




4889 00*01 3709 OH TA GOTO '600 




4009 POKE 72.160 




1019 CALL 3636 COLOR • 2 




4020 HLIN 0.23 -T MLIN 9,tt AT 


*• 



COFFRE FORT 



l«4fl 


. " . - 


■ 


■■■ 


■ 1 


. 


. 


-• »: 


■ 


i«M 


.IN 





■ 




■ 


" 


-■ 




:■■ ji : 




n 


-- ■- 






■ 


■II -F 


!3 


•~t 




.-::-,- 


i«r« 


- rai 


3: 


■■i 


I* 


.- BIHt 


>.J-3 


-'-E 


T^ 


■'! 


- 


pRjMt 


■m 


-'-t 


n 


■-; 




■•-:■■ 


1054 


KTA1 


32 


■-1 


.7 


p« :•■" 



1093 IP PEEl "£ - :■■ 

)0 POKE 72.32 

>■■}?■; COLOR ■ ■? .IN 1* 70 - 

4499 :0LOR ■ £ 

4149 p'J= I « 2 TO *» STEF : « 

'HO FOR J - 2 to 23 ;--Z-- _ 

rmd i i ;■? ■; ■-£•- - . : _ 

PLOT 



PL01 



j. : 



1113 '.e 1 .. 




-.:■: ■ JLOH ■ ■- 


--■ " ^-: 


LIN 16.43 - r 


i -_::-- 


i£O0 PE« 




(214 - > 4 :OLCfi • 5 


i££9 I • [NT 


■ : !■ 26 


■ l.ir :■,; 


1 . Ji - ; 


-£7o if ;:=■• 


. • a ---:•■ 


• i pl;t : . 




1244 : r - ■ 114 


---:■■ return 


4Z38 MTO 4224 




1300 PEN 




1330 P01 ^ I- -:. 


96 r ?p : - . 


STEP : POKE 


-"■■ ; "~ . S6 


HE " 




1364 POI -z r« 


:-_. ;67: p 


4374 RETURN 




i499 PEN HP 




4410 COLOR ■ 2 


FOR : ■ 9 re 


STEP 4 C030E 


*42* HEX1 : 


- 1 TO ? ■if€.- 


i :;-:je 44sa 



MTO ' 



130 



!4 ■ I »T i • I 

HLIH 4 * I. 24 - I AT 43 - I ULIW 

« 1.40 - I AT £ • [ ULtN 3 - I > 

- I AT 26 - I RETURN 
4430 COLOR -9 HUH 8.26 AT 23 

ULIN 2. 17 AT -.4 'LIN £^ " ">T 14 

HLIN 2.26 AT 22 
44*8 COLOR • 3 FOR t - 1 TO 24 

STEP 3.3' FOR J • 4 TO 24 -;TEP 4 

PLOT J. I ■ NEST J. I 
4438 COLOR ■ 3 PCS I ■ 44 TO 24 

STEP - 3 3 POP j ■ 4 TO 24 STEP 
PLOT J, I> NEXT J.I 

4460 POP I - 4 TO 43 STEP 3 PLOT 1 
PLOT £7. [ 'IE IT 1 

4480 COLOR " 9 ULIN 14.39 AT 22 
4498 COLOR ■ 6 PLOT 34,49 PLOT i 
PLOT 34.33 PLOT 33.37 PLOT :■!■ K 

ulih 39.41 at 76 plot 33.42 
plot 34.43 hlIn 33.36 at 44 

4309 RETURN 

4609 PEM DEPART 

4603 OH »0T fA QQSUI 3390 

1610 POKE 32 29 - )KE 13-30 

4629 SPEED- 109 TA - 1 

4639 HTAE 79 PRINT 3: SPCi it • 

spC' 22 3 SPC' :: £ spci :: 
$fc< k>; -00 ii ' ■ speed" 23: 
print chri 1 7. :hri ■ ? :mri 



19 



SPC« 30 ■ 

4649 POKE 32 

4639 RETURN 

3000 REM 

3814 POKE 3641-235 FOR I ■ I TO 

STEP 23 POKE 76-: I CAlL KM 

NEXT 



3013 



COSUI 4330 RETURN 

REn SAUOECARBE 
6110 TEXT INP^T -"OMEPE DE 1AU ■ 
5 DESEREC5 6.0.P ? - ■ t 
6129 IP I :■ ? ThEM I • 9 

6122 A - 16 i I * 21 

6123 MCOLOR - Z HPLOT 30-2-3 TO ! 
TO 137. A TO 30" TO 39- 20 TO 47.:- 

TO 199-16 TO 187.29 HPLOT 1?0 ' 

TO 199. A « * ffl :-:7." 
6126 HPLOT 190. A * 4 TO 47.- • 4 

TO 30- A HPLOI 4: 16 TO »7 A ' 
6134 FOR J • 1 TO I OTAI 2 < . 

* 2 HTAB 9 PRIST *SAUUEC-(R.I!E ' 



IHOCRSC 


PRIMT 


Jl 


HORtlAL 




6149 Al • 


-FUTE 








6158 FOR 


P • 1 





.E-i 1 A*) 




* P. ASC ' 


MID* 


A< 


p,l>) * 124 


NEXT P 










6168 POKI 


69. p 


EH 






PEE' 1 194 > POKE 


■:£. PECK 




POKE 6' 


. PEEK 


1 


6) 






69573 








6299 FOR 


P - 9 


ro 


094 NE IT 




GOTO 4090 









■ .■ 








■ 








■ - 




■ 




- ■■ 


;6 3«- 




■ 


■ 


■ 


■ 


1649- 


11 


659- 


1 


.. •; 5 8 - 




1669- 


■ ■ 


■ 


I 


•■■•- 


■ 


1679- 


■ -: tt :« 


■ 1 


- ■ 


■■■ 


■ 


■ ■ 


1* 20 


:698- 


17 ;.- .- 


.■:-o- 


-: 3j : 


.-:-■;- 


■ . 


16B4> 


■ 


t6Bfl- 




:6C4- 


- ■ ■■ . - 


1 6C4- 


■V 93 11 


.-::■•- 


I li 


L6B0- 


64.24 1 


.:•:■)- 


■ 


:6£0- 


«o -3 4; :■ 94 --•: -* :■; 


1<P«- 


:• r: : :■ *■ •:- H -.• 1 ■ 


I6PB- 


■ ■ . ■ 


. 799- 


.--*:« 


I748- 


:• :■- -■ 


1719- 


--. -7 CO 


1719- 


C9 64 F« 


1 - : 1 ■ 


A« Bt ■•■' 


172S- 


-9 00 ■:• 


1739- 


ii -■ 90 2C 6« 


1 738- 


--; ,j 40 -: 1. 14 


1749- 


.;.; aj .;.: .1 00 (C IS 40 


1749- 


91 £i t: -:: 91 IS 


1739- 


E3 £0 03 94 P4 09 14 DO 


175S- 


od A9 9! -:: •:: a? f- 53 


1769- 


£-; M 44 93 44 60 :o op 


1 766- 


ro 99 A3 - : ■:• ee -9 99 


1779- 


93 £E 94 44 64 A3 1C 20 


:-*.;- 


54 P9 -i :•: -'. 19 20 09 


17S9- 


PS A9 90 53 IC A9 OJ i4 


17*9- 


•'4 P9 M ;- S4 16 «3 IE 


1799- 


S3 19 20 44 F9 C4 49 t0 


1796- 


09 A3 40 E' t- 63 9A 4! 


17A9- 


A€ 17 A3 1- E3 40 33 0- 


17A8- 


A3 11 03 41 t? 99 91 41 


.710- 


E3 it 93 91 »: t: ■■' '■'■ 


17B6- 


IE E3 41 -3 0£ CI 9A 14 


17C9- 


OC A3 IA :3 *0 E0 93 E6 


17C6- 


i- ':■■> <:-; i- 64 -3 it CI 


1709- 


41 EO O 7 E6 :i 64 C4 it 


17B6- 


, ■ 3 3 E: 63 EE A9 


| .-E0- 


03 93 £t 09 94 53 Ct 53 


17E9- 


00 53 I ! W 64 F« A4 14 


1 7F0- 


-3 19 ;•■ 94 - 


l 7F6- 


no 01 9- 94 


1300- 


9a ac ■•■■ ■ ■ 94 ■ ■ 


1300- 


o-i 9^ -: M l W • ' 


1419 


AC -IP - ■ ■. . 


1613- 


, 90 1 7 44 


19C9- 


Ca do p- ■:: or 9- -;d oo 


1919- 


.., ■; .■ .... 


1434- 


IE 5D •?■■ 1 40 4 


1939- 


.'■■ ■.-... 


1640- 


. -D 10 9a 


1944- 


90 12 9- 64 f% "I 01 69 


1330- 


23 31 01 Ji 06 A3 02 69 


1939- 


94 53 01 :■'- W -3 OJ 69 


1669- 


94 53 03 IH A3 93 CI '■ 


1563- 


0« ■?.. •.* 92 CI 3? DO O* 


1679- 


-3 Ol C3 H » « 91 91 


1678- 


13 35 1*1 42 91 39 A1 93 


14»f- 


53 3- -7 9( ■■•- £3 A9 £0 


1868- 


53 £4 »r :- ■■■: 39 20 41 


J390- 


FJ 91 35 14 0- PC -9 0* 


1898- 


S3 £3 99 24 11 24 *3 O! 


I0A4- 


A6 02 20 »: F? A3 01 20 


16A4- 


0» FD 60 -:•; E£ A1 E£ a 


1618- 


44 PO 41 60 A* 00 01 CI 


1919- 


20 64 F5 --- IP 63 £0 A9 


t«ce- 


£E At £4 £0 :•: Ps :o -v 


:6:e- 


P4 03 :-; E4 -:■.* €6 co a* 


16B0- 


50 :o :• c: IE -? 91 : ' 


1808- 


5i :o u t % 94 - 


15E0- 


£1 CO 14 |C Oi "9 41 13 


I9E4 


pi :o o- 14 04 a 


18F4- 


El -3 El M 64 P-; -? £P 


isp-:- 


91 £D -i 50 9j £5 £4 t< 


1909- 


F9 64 :•: '.:■ •: 1 ■■ 


1908- 


03 "9 04 93 CO 24 :« H 


1914- 


-4 EO :» 01 D4 P7 60 99 


-.910 


44 20 64 -' : 94 00 ■<? 14 


;e:o 


53 :: 99 It 24 19 


I9M 


■^ -; :• a ti ps 60 -t 


-.930 


E4 11 01 £■■' o- I? 60 -c 




10 CO «D !0 li 60 PP ■■' 



9 C^ AA 



Vous Stes aux prises avec un coffre-fort recalci- 
trant, mefiez-vous du signal d'alarme, les gendar- 
mes sont rapides !!! 

Joel PEGLION 



Mode d'emploi : 

II suffit de repondre aux questions 




5i CLEAR :fi«»"P 

MlJVRE"iGOT0 
120 

[OiPfUJSE "JE TO 
l.iPHE LE POIH 
TEUR": HtPUT 
"D UN CRfiH 7 
"iftfi IP A«» 
•0U1 "GOTO IT 


15! GOTO 40 

201PAUBE "JE TO 
UPltE LA POIG 
HEE"! INPUT " 
A l EltliROIT 
-■ MMiIF A* 
• "OUr'GOTO T 


ZBlGOTO TO 

JOJPAUSE "JE PL 
ACE LE POINT 
£UP": INPUT ' 
BEVANT OUTER 
TUPE ? "SA»t 
IF A9""0UI" 
GOTO 160 

SSI GOTO 20 

•lOiPAUSE "J Al 
■^rvMMEIL T1IEU 



X VAUT"i 
INPUT "PENTR 
ER ? "1MHF 
Hl = ' , NrjN"GOTO 
180 
43IPAUSE "JE SU 
IS SAIH.'iAUF 

•ipAUse "... 

ET "!Bt:EHD 

50H MJ8E "JE RE 
METS LE POIH 
TEUR'MHPIJT 
"A ZERO ? "I 
AIHF AI--OU 
I "GOTO 110 

53>iG0T0 10 

60: PAUSE "JE RE 
HET8 LE POIN 
TEUR"! INPUT 
"A ZERO *> "t 
All IF A»«"OU 
I"G0TO 1?0 

, 51 GOTO 50 

KM PAUSE "CA HE 
S OUVRE PAS 
"! INPUT "JE 
RECOMMENCE ? 
"IH»! IF A«- 
"OUI'GOTO 17 



T5JG0T0 TO 
II AUSE "HON.. 
.A L ENVEPS" 
i PAUSE "LE C 
OFFRE S OUVR 
E" i PAUSE "VI 
CTOIRE-iB*-" 
RICME"iG0TO 
40 
901 PAUSE "JE CO 
NT I HUE"! 
INPUT "APRES 
LA SOOG ? " 
t„j: IF ..(■••0 
U I "GOTO 40 
pJiGOTO [20 
lOOiPAUSE "SEULE 
MENT CELLES 
OUI"! INPUT " 
FONT CLIC-CL 
AJ ■ "WVti IF 
mi 'OUI'GOTO 
140 
I03i GOTO 90 
HOiPAU-.t ' I I 
AIE TOUTES"! 
INPUT "LES C 
CMP I HA I SOUS 



IA91 IF Al 
■ w 0Ui"G0T0 9 

" 
liSiOOTO 100 
it PAUSE "JE PL 
ACE LA CLE" i 

INPUT "DANS 
LA SERRURE ? 
•'lAltIF A9- 
"OUI"GOTO w 
1231 GOTO 30 

upfl 8E "JE CO 
MPOSE LE MOT 
RLARHE"! 
iniiir »wec 

LE POINTEiJP 

J "!AH II Ml 

i-ourooTo i 

30 
i S3«G0T0 70 
|40il AU8E "LA PO 

LICE ENTRE"t 

PAUSE "J6 8U 

IS PRIS"!END 
130t PAUSE "JE TO 

URHE LA POIG 

HEE..."< 

[HPU1 "A L E 

Hjjfton ? "'a 



<: IF At""OUI 

...m.i 170 
I 33 (GOTO 80 

IPAUSI "UN GA 
: EPA IS" i 
i,,M.f *R6nPL 
IT LA PIECE" 
iGOTO 40 
i roiPAUSE '■ ' EH1 
END! il SIGN 
i.i "IPAUSE "D 
Al ARNE"i 
INPUT " II Ml 
18 ■ "lAIHF 
A#*"NOH' 
160 
I ,' il AUSE "JE SU 
I ■ AINiSAUf 
■ il AUSE "... 
i , "IMll 'Hi 
i m:i ..'it; "Jt ME 
U'.'LILE'I 

i "AU PO 

'i l-i. FOLIC 
I -ilMH 



CHAMPS DE MINES 



Coure2 d'une mine a I'autre. pour evitez I'explosion ! 
Fuyez celles qui clignotent, elle pourraient vous tuer. 
Utilisez clavier ou manettes dejeu et deminez... 
Mode d'emploi dans le programme. 

David BROUT 



; : 

12 re*— 



—debut du Brartm 



45 >c-f . 

:■-: 

68 re* «««M«iflttUl)U'!On variable* • 

78 dl« W<37).Bi 4>,»*<4>,bc<23J 

go de* • ■- ■:. - -IQS4 48) 

98 d-:- ■ ■ --■-•'"^»<ic)>-ie24 

188 def fn»<o«l024*; , h • 

110 de*" fnP<x>*1387*int04*rnti M««intUS«rnda>) 

128 d*f rrmCx>-P«tfc(fn4(x>> 

138 for j«lto4 r-«<j KM<J>.)m( • ) next 

140 d*t* e-:.a. 1,-i.e, i.e 

158 sc=0 bt"I638 ftb»4 nv»6 d=S-;;~£ 

168 frivA'Wi Poke 53272. 21 

178 Print-T»:h*-*-«delfccere 3" 

:^e si-:-.". x» il-. ; ..:of-e 

;:-? =-. • -»•-; a»n * . : 

288 Print TH n ifntOlthvn fey- ,*-ltonl-l PrmfZ", next 
218 for ,"1CL-*-:: = ;■:■-■? ■-;■:-.,.-; 

■ 
238 ***= '■■■■< lllllll lllllllh • Illilii 

233 -aM,?!- •aiiim. . - jinn 

158 = *^ ^PmillMII MIMIMINHIMIItlll 

': ■ l iiiiii; limn ■ .■■■■■in 

288 b9=8 iw» n - : 1 t**r 

299 -*-nb*;.3 >! fowl the 

3:e Print *■■■ - it 

328 Poke fro<l>>32 forj-Ito * >c*efaPf o,32 next 
bo23 Pflfc«bc<J>*32 wxi 

338 on«int'-n©; for.<-*lta nc ba =. - - - 

358 bt ■ --.*.- :»'r.d<l)>/188)«bt 
368 &3^ .>-bt(j)+.5*bt' n-o*'. l>-t>3<j>*bt 

388 Px*19 p*-13 Poke '; 

330 for j"lto r*> 

486 bP' . ■ = •'-:■-: :• s»«- '5* ' .■ > >032th*n 408 

4:8 Po*e b&0>,37 Poke** 

■ 1 -lto33 
*1£ be =■:*. if :ee<<bc(.<.0032 than 416 
417 if Pee* |, bc<j)-l>-'87 then 416 
413 Poke bc'-j.SS Pofcebc 

428 9*t r* :f rtO"l- = 

438 dr=8 txftl 

- •*.>••■•>•■••*■■■•■---.£ -.; ::=.:;• •*•••** >*••*■■ •*■■•• 

450 r" IT- ■ t'.Z) '*Z 

468 if rO0then 0r«lo3CD/l09<2> 
478 :f r«0the-n498 

4S8 re* deM»c*ment du Personnj^e 

438 If dr-0then 600 

580 Poke fu<l),32 Px=Px**r>Cdr > P»«C*+»Mdr> 

518 If Px<8 then p*«39 

328 if Px>39then e*>-8 

338 if fi<A Vhtn P*=2* 

549 jf Py>Z4thTO p»»4 

538 ft 1 

568 if *-32 then Pofcef nsd >.98 Poke fns(W*d.r 9oto 686 

570 if *=42 or ,=86 then ?69 

588 BOto 398 

398 r«« bowbes 1 retardsment 

609 nn*nTi*l if nn>l nf. rib >th»n r,n=\ 
618 if bs'nr.>=0 then 689 

629 " --"- :-' 

630 if tS.D4-.nn/then nl-nn Ooto 728 
640 if bs'nr.»2 tl 

698 if t«~*» 
669 if W ■ 

679 if bS'nr.=I the* 450 

680 if bs<nn>-2 then Pok*bPfnn>.215 Po*e bPCnn>+d,l goto 438 

638 if bJ =' " >ok«t*<Tm>*d/i:b»<iw»-4 9oto 430 

788 if b»<im>M th*n Pc■^e »<<m>,213 Pot-^bP' nt\>-"S. 1 bs<or!j=j 9oto 439 
710 r*N ••••••••••*••••;: -.-.b^ a.-= ^•••••••••••••••••••••••••••••« 

?28 *-*t Pd-8 

na *-"*"*-i»ft*<s*.fi*<b« ii>j-2)*i»ft*<« ->.-'bf'"ii)j-i) 

- 1 ,s 1 
748 forj-ltonb x^wkCbK'J)) if bS' ■ <=9then 768 
738 if x<>87«nd K02I5 • ; _;■ •■^n „2= . 

216 thro Pd«l 

... - » .. t -.- = ;. . ■.. 



MONKEY KONG 



Imaginez que. lors d'une promenade avec votre 
bien-aimee. un goriile echappe du zoo voisin ia 
kidnappe et se refugie au cinquieme etage d'une 
tour en construction. N'ecoutant que votre cosur, 
vous partez la sauver. Mais prenez garde, le goriile 
jette des tonneaux qui roulent d'etage en etage, 
ces tonneaux peuvent vous tuer, Arriverez-vous & 
tous les sauter et delivrer votre compagne a la 
barbe du monstre ? Jouez et vous le saurez, 

DELBOS 



■ONIMODORE 



64 



■ . ■ . .;■■-■: ■ ■ 



?:■: -?■? 



* 



;=-.- 




";0 ■*:- =:■.: -■-: : 
':-■: t*xt bn=* -' 
389 :■■ - _•=: the* 968 
:■_ :.- l 08 -■ -: i-r 
ll-j :■' z=?-*~- ■ =- - 
538 -:-■! 9oi 
349 Print* «Ha--tlb<20). 

858 for i»ltO 28 Print*8 cokPU:' ■■■■■•til; 
:-•: 3 llfllllll 

:-:=:-:-:-?• :" - --t; 
388 print lilt ICC-: tiiittini 

t bc*e* Ssterree- 

= >:■ C9=s5*: := = --: ; :- -: • £ : ■ .;:? 

895 -:• *ltoi* ii P«el ^ ; «21( thrr 1 «*a t»<i>HI 

986 M - 

x : o if = =-;--^- » . = 3 
928 sc*sc+18«a-' Prmt"4r;t«b(16 
. ' ■■ . . ■ ■ ■ . ■ . 
948 t =• +<ti-tl ;:-:^J*^ 
?50 rew lou«ur dvtrt i 

-..-■■. .:■:■■:■-" 

for ^:::28 ?o*efra<:i).42:for . . = ; - : ; •.-■.-■.. 
978 for k=:- 

** 11 - - =:.= ^^=13 

>■ -8tte»I843 

r-=0 then 840 

:eia set r« if rto' 'th-m ieie 

Ito rib if Pe-k'.DP()JJ=32*ftd Bt<^>08th«-t Poi«; 



:?70 - - 

10-i? Pok*f ■■: L .-■■-----.--; 

:c-^ :^ i z. ■-=. thet -::?-:■ - : 
:■?;? ■:- ^;-;:rc? --•• Print** 



>:-: 458 

Mm ovtr- 



■ ■ 



133: for j* 

1352 Print"! 

1883 for j^lto 99 

Set -i If -1= 

:-?.--■ :■ -1 : -;?, 

1100 Print.---fc bltntot'" tnd 

ins flosuB 1138 soto :58 
■ :2? •-*•' 

RHP D E 



•octton* 

NINES *^«tt K 



int'Sn/oulvz vows 1** : 
58 9*t rt if rf»-o*tr«nl4ie 
68 if rfO-o-thenllSe 

88 Priftf-BBTu* but <*» c* j#v tit <J« Pr«rrt*-«' 
99 Pr;r,t--H* Plus Possible d* boMb«s »v*nt - 
'rint*1tt*«Uw n'exPlosent. ' 

rint'Povr Prertdr* un* bowbe dePUce; ^-str-f ■ 

rlnt"P«r*onn**t fur 1* bowbe." 

rint'Les bo*be« •xPlosen* »Pr» s tvolr eliftnet* tfur»nt wn court instant.- 

rint"SJCr.ez que I'exPloJlon d'une bonbe Pi-ovo^ue un cr*tere • d«n» l#«uet" 

rint"vous Pouvez Perore une vie" 

rint-Pour vous d»Pl-C«r l~XHf*Jf>' 

1312 Print- ctrlO<GflUCHE>" 

1313 Print" 2~>CPR0ITE^" 

1314 Print «- -XBflS)" 

1320 Print"-|lt est conseiHe d'utitiser un J0VST1CK sur le Port 1 ■ 

1348 Print Prlnt"*ftf Pl»»I »u"- 'KETL*H' HOu- ccntlTnier" 
1341 oetrS if n<>chr«{l3>then I3«i 

1349 Prlntchrf(142) h7»9 

1330 Print * - ! 1 Points »ttnbues J " fort-lto280 next 

1331 Print Print Print" 10 Points Pour " 

1332 for t-1 to 388 next Poke 1164,87 Potel 164*54272. 2 

1333 Print Print" 20 Points Pour " 

1334 for t«l to 398 next -Poke 1244.213 Pokel244*5-it7l | 
1333 Print-Print" 39 Points Pour " 

1336 for t-i to 300 next 

1357 Poke 1324,87 Poke 1 324*34272- 1 

1336 for t-1 to 380 next 

1339 If h7"3 then PrinfllCTfMMKbonn* ih^ce"' -|~ 

1360 if h7»5 then Pr mflTfBl tPPuvtr sgr return Pour contirwer" 

1498 h7-h7*l 9etr«Pokel324. 215 Pokel324> 54272. 1 if riOchr»<l3)then 1336 

14*1 Prmt chrl(14) 

1418 PrinfUCholsissez un nlweiu<8-3>" 

1428 «et rt if rfC"e"or r*>*3*thtn 1428 

1430 nl.4-vil(rlVr»turr, 

1988 end 

2888 rei» bruit d'exPloslon 

2018 Sw-34272 

2828 for ««<ivto J *w»24 Pokes. 9 newt 

2823 Poke *u*24,47 

2830 Poke q«*3.64*7 Poke flu»6-249 

2038 Poke flw»4.9r Poke«y*l . 36 Pokeflu-35 

2868 for t"l to 230 ne-t 

2870 for t»15 to 09teP -1 Pokeflu*24, int<t) next 

2PO(5 -e*urn ■ 



2:0flTB '20?e?f3fl 

W. ■ 88663P J 68 

• 7-271^1224 

• 142?l-"244a , 

ee . eoifisreec 

.... 



=.'. 



. ■■■ 



PC 1500 



Remarque 

Pour ceux qui possedenl la version de base, it taut lane POKE 
30822,0 puis NEW avant de taper le programme Mais atten- 
tion, la mdmoire RESERVE devient mutilisabtc 
Mode d'emploi 

Lancez le programme par RUN ou DEF-A". vous vous Irouverez 
alors au rez-de-chaussee 

Le premier chiftre indique I'fitage ou Ton se Irouve le dernier 
indique le score 

Pour aller a gauche, appuyezsur la touche 1. pour allera droite 
sur la touche 3. pour monter ou sauter sur la touche 5 pour 
inlerrompre un saut, il faut appuyer sur unc des deux touches 
de displacement 
Chaquo tonneau saute rapportc 100 points a condit.on de ne 

*olr saut6 de trop loin Le jou prend tin lorsque vous 

ubl 5 chocs avec un tonneau 



■ ■ ■■ ■-. | .■ 

.■ ,■ 

8404046 

■ ■■■■ ■■ ..>■■.< ,i ■ 
■■ ■■ ■■ .■ . .■ 
eieieieit 

..■■■... 

.' ..■ ..■ |f) :.■ 

n. a clear icts 
-cursor *; 

■ ■ 

!P09 I , 
REOD «i 

it 
,. 



: .. : 



. 



■ 

■- .' : 

■ 
■ 

'rGWIH 

OCURSO' 
&P»ls* 



3JP0R P=lt0 9: if 

«(P)=0GOro 14 

:e:i<p)=i<p).(0-i 

3)-<0>55>:r=a< 
PJiGCURSOff f: 
GPRINT ■ 



: ii if r-3>easn r- 

0<ROND U>8 
GCURSOR R:uAir 
99:GPRINI 'fld* 

wait :2-Z«HIf 
2>4PRfNT Scor 

■ i iStOC 

12: IF t>i0?OR 1(1 

1GCURS0R T*l: 
GPRINT 0;0!K-K 
-1SFOR T--PT0 ? 

■ If aaiLt' •< 
T>-»<7.; •■■.•,! ..: 
T 

I3;wair eiNEKT p 
H:GCURS0R R: 

GPRINI BS<0-Y« 
URSM n: 

GPBJni ?f7a?e> 

ia?f i 

8>B-U»>ND «3 

«N0 U -'. 

MHO 
RSM 2B: 

■-:CURS0R 
.■ . i >, 

■ ■ 
>j If- :-- i 

- -eGOSUB 




■■■ 

5, 9:0*0«(0<3) 



■ 



\?i If IMCEYI 

ON0 R< 105P£tf 
I, 9,9:0=0-(0<5 
).1:R-R.!TV.0! 

L-0:J=0:x=fl: 
GOTO 3 
lB:X = X*i.- : 



2lt If POINT (»«B) 
■9600 POINT (R 
•9)=960R POINT 
'R-?>-M0R 



>$*I00 

■ 
■..'■-- 

GCUPS0I1 j 
C°R!"'' B10I0 

■■■ ■ 

curs;>- ■ 

.... . q 

INT 12? 

- ■ 

I 

?f 4/?4 

■ ■ 

: ' 20: 



■ ' ■' 



GCURSOR 25: 
GPRINI "BI0I81 
0101010202021 ■: 
GCDRSOR 23 

B18I8I 
820202840404' : 
GCURSOR 25: 
GPRINT (1111202 
H4B40BOB1B10' : 
GCURSOR 73; 
GPRINT 018204 

.■■-.'. ,•■!,•,■,•,',• 

4J;u«IT 0:CuflSOR 

20!WtlH 

GCURSOf f: 

GPRINT tKO-6! 

■ IF' INK) \ ' 
0N0 R>8BEtP I 

.9.9iO-OKO<5) 

•liR-R-i 
43:ui.e6H9ea-tif 

RO3IG0T0 47 
44SF0R P-14I0 70J 
2»»0«(P): 
GCURSOR BiWflll 



4b:GPRINT 2»iZt;7 
' l« IMTI (010 

20«0n:,'. 

244 . I. || 

•;2«;2t)2ti?«j 

OR 98: 
. 
46IGPRI-N* . . 

i«M ' .i 
10 9!GCu»S0R 2 
■ 



5P7850' :hffi- 1 
. 208. 9: GCURSOR 
27:t,PVINT -31? 
ft3F2rt' 
T 

471FOR P'0TO 9: 
GCURSOR SO: 
GPRINT Uii '803 
O3?373O0O"lUt: 
mi'- t. 730, 99J 
GCURSOR 96 J 
GPP1NT USJ-B01 
0.17371000' ;ue 

<P:NrMI P:wOIT 20 
0:GCURSOR 22t 
20307F 
...... . 

.■I 'I i.'i.'i'i' . 
CLS : GCURSOR 2 
3:GPR1NT '2»38 
■ 

49tRpQ;u 

It 3: G0!0 8 



All I 



r* 1 1 * 



4-l« I 

■■ ■ N 
61 (GCURSOR 8: 

.-..«.■ 
lj?«IZtl »..«. 

7»;7«;.'». 1. 1 

1 UAIT 29: 
GCu«-. - 

I . 
■ 
■ 

24, 1 J. 98. 
■ 
H, 13, 96. 18 



LA TRANSAT 



Partir de LORIENT; traverser I'ATLANTIQUE et revenir a 
LORIENT apres avoir vire la bouee des bermudes II s'agit 
d'une simulation de la veritable course "LA TPANSAT - 
LORIENT - LES BERMUDES - LORIENT" dont le deuxie- 
me numero s'est deroule aux mois de MAI et JUIN 83. 

J.FdeLIGONDES 

Mode d'emploi 

Des lapparition du tableau 'Ordres possibles", il y a un curseur cligno- 
tant dans le coin droit et en bas de I'ecran. Des lapparition de ce cur- 
seur, etce. dans tout le programme, ilsuffirad'appuyersur la barred'es- 
pace pour continuer le ;eu 
A la question "ORDRE' taper 
"0" pour alter vers I'Ouest 
"E" pour alter vers ('Est 
'N" pour aller vers le Nord 
*S* pour aller vers le Sud 
Vous avez droit a 6 ordres par tour 

il tour represente 24 heures de course et cnaque ordre 4 heures de 
course) 

N.B. Vduspouvez taper (l) pourobtenir lebilan meteo et (2) pourun 
rappel de tous ces ordres et positions des differents points d'appuis, en 
tapant (1) ou (2). vous n'utilisez pas de temps. 




b 



■ffiS 80 



7w CLsmi-AicoToieee 

..:■: Dl*-CHR*'160>*CHR*i IS2>*STRING*'G. 1281 : FORI -1T0651 READA: Dl*- 
01**CHR»IA) !NEXT:D1*-D1»-5TRING*'8. 128) iFORI-t T034: READAi D1»-D1 » 
-CHR*(0>iNEITtDl*-Dl**STRING»<8. 128) IFOR! -1T0I6I READAiD!»-Dl»*CH 
R*<A)lNEXT 

£-06 FORI-1TO40:PEADA:D2*»D2*-C«R*'A) 1NEXT :D2»-D2i*STR I MG*'G. 128 J 
•CHR»'1E8>*CHR*<134)-STRING*'6. 12B) *CHR»< 138) *CHR»' 164) -STRING*' 
£. 128)»CMR*i 1 37 >-CHR* '1441 -STRING* '46. 12E> i FORI -1 TO20I READO: D2»- 

. . i ■ :hr* a :■■-. ■■■::,. i- 02* i-stain :■.%■ 26. :;."-.. 

818 F0RI-lTO!2:READA:D2*-D2**CHR*rA) :NEXT:D2*-D2**STRING*<6. 12E> 
:F0RI-IT0ie:PEADAiD2*-D2*-CHR*'fl) :NEXT 

S12 FORI -1T06 1: READA :D3»-D3»-CMR*'A)iNEXT:D3*-03»-STRING*<7. 128* 
:FORI-1T033: READA: D3*-D3**CHR»'A) :NEXT 

328 F0RI-1TD14: READA: D6»-D4**CHR*<0> : NEXT:D4*-D4*-STRING*<34. 128 
>:F0RI-1T0I7:REBDA:D4*-D4**CMR*(A) :NE*T :D4»-D4*-STRING»<34. 128)* 
ChR*' 186>-ChR»i 191 i*CHR«'19I I -CHR* I 135) -STRING*' 17. 128) 
324 FORI=1T036:READA:DS*-D3*-CHR*<0> :NEXT :D5*-D3*-STRING*'S. 128> 
:FORI-lTO56:REAOA:D5*-DS**CHR*'Q):NEXT:CLS:PRlr.Ta404. "JF DE LIDO 
■ :DES PRESEnT£":D3*-D3**STRING*I3. Ill > :F0RI = 1 T03£: REODA jDS*»D5»»[: 
MM CA} -NEXT 
350 DGTk117E. 132. 128. 191. 128. 128. 186. 175. 144. 12B. I2E, 131 . 131 . 191 . 



5 CLE»R14«eiDIME»<15>:F-RND< I 0' :FO-F-20: FA-F-381 PA< 1 > -I025-RNO' 1 

Bl 

:B ClS:PRINT3326. "L'EPOOuE OES GPOS BROS EN COURSE AU LARGE EST 
D£SOR*«IS-!PRINT"B!EN REVOLUE. 5UR LES RAPIDE5 MULTI COOUES. TOUTE 
ERREUR OAKS LE-:PRIMT-CMOIX DE LO ROUTE EST DUREWENT PENAlISE.LO 

vICTOIRE SEVIENT 0" 
28 PRINT"CELUl OUI Q SO RuSEH AvEC lES DEPRESSIONS ET SES ADVERS 

AIRES... " 

1 IB FORI -ITO5:RE0DO:OI*-A1**CHR*<0):NEXT:B2»-ChR*' 175) -CHR*' 159) 

•STRINGS 9. 191 i :03*»CHR*'123)*CHR*< 138) -STRING* 'G. 191 > :FDRI=ITDS 

:REO0O:O4*-A4**CHR*'A>:NEXT:F0RI-lT04:READO:O3*-nS*-CHP*f0) J NEXT 

13S ft&*-CW«»< 176) -STRING*' 12. I 28) -CHR*' 176' -STRI NG*f6. 191 ):B7*-C 

HR*(168>»CHR*'lB8>-STflING*'13. 191 ):OB*-CHR«< 175) 'STRING*' 17. 191, 

-CHR*' I43>-CHR»< 131) :A3»=CHR*< 160) *STRlNC» ( IE. 191 ) -CHR*' 177) : AA* 

-CHR*ll98> -STRING*' 15. 191 > -CHR*' 131 > 

165 F0RI-ir01F,:»EODO:ft8»-O&»-CHfl*<n>;NEXT:FDRI'lTD4:RE0DO:BC*-OC 

♦ •CKMiC) :NE*T:AC*-AC*-STRi'jG*<Ei. 128) *CHR*f 176>*CHR*< 188) sFDRI-1 

roi3:REODOiOD*-OD**CHR*IO)!NEXTlAE*-STRING*(2. 175) -CHR*' 1 e4) -CHR 

»'1B8> -STRING*' 16. 131) 

284 OAT A 139. 183. 188. 188. 190. 133. 1 75. 191 . 191 . 191 . 178. 131 . 191. 191. 

138. 131. 131. 191. 143. 175. 191 . 191 . 191 . 191 . 191 . 191 . 191.131. 159. 133. 

143- 143. 133. 129. 176. 13B. 191. 188- 17G. 17£. 1 7G. 176, 1 76. 176. 184. 191 . 

191. 191. 191 

286 DATA! 59. 143. 143. 143. 175. 191. 191. 131.26.24.24.24, 162. 131. 131. 

189. 144.26. 24.26.24.24.24. 1 38. 187. 191 . 131 . 183. 144. 2S. 24. 24. 24. 24 

. 139. 173. 191. 191. 12-9.26. 24. 24. 26. 131 . 123. 128. 128. 128. 136. 132 

388 31*«STRING*'2S. 191 >*CHR*< 159) *CHR»( 133)*CHR*<2S> -CHR* (23) -ST 

RING*' 28. I91>*CHP*']e8)*CNR*'2G)*CHR*<231»STRING*<18. 191) -CHR* U 

33)*CHR*'I31)-CHR*'2£>*CHP*i23)-STRING*'17. 131 ) -CHR*' 169> *CHR*I2 

5>*CMH*'2S> -STRING*' 17. 131 ) *CHR*' 178) 

328 B2*-STRING*'13. 191 > *CHR*< 188) -CHR* ' 2E> -CHR* ( 291 -STRING*' I £. 1 

31) -CHR*' 143)-CHR*(131)-CHR*' 129) -CHR* < 26) -CHR* f 23) -STRING*' 1 1 . 1 

91>*CHP*' 143) -CHR* I 143) -CHR*' 131 >-CHR*< 1 29>*CHR*(2G)*CHR«<:23>'ST 

RING*'B. 131 )*CHB*' 153)*CHR*'129> 

345 FORI-1TO30:REODA;B3*-B3*-ChR*<O) :NEXT:GOTO800 

373 P-HCLS1PRIMT353. Al »i PRINT31 1 7. A2«: PPINT31 84. A3*i PR1NT3251 ■ A 

6»;PRInT3316. A5*:PRINT3366. A6*iPRINT3427. A7*> PRI NT3492. Oe*: PRINT 

3536. A3*: PR I NT 5620. AA*: PPJNT36B4. A6*i PRINT3754. AC*! PRINT381 7. AD* 

; PRINT 3376. 0€* 

388 9ET'B. 28):SET<12. 23»:S£T'16.29)JSeT'22. 31>iSET<23.31)iSET'23 

. 33> 1PRINT3784. "ARCHI PEL' 1 •' PRINTa77B. "DES ACORES' i I RETURN 

488 P-3:CLS:PRINT81»:PRINT&2*JPSINTB3*:P0KE13912. 149: PRINT3-A&. ■ 

(SOUEE-ItRETUAM 

588 CLS:Z-1 :PRINT3265. "f*DH&RE DE CONCURRENTS "1 : INPUTA*: A-VALf A* 

<IIFA<1DRB) 10THEN588 

328 G1«A:F0RI-IT0A:PRINT-N0M OU CONCURRENT NO " i 1 1 I INPUTC*f I ) iC* 

'I)-L£F , T*'C*<I).13)JNexT:a.SiI-0:OOSUB548!GOTDG38 

3*8 £»'l)--2 FLEURV-MICMON P. POUPON-L. POUPON" 

338 E«'.2)--3 UlU-IAM-SAURIN E. PIOUIDEL-JF. LE MENEC* 

360 E*'3)-*7 VSO N.KEIG-C.GAHINET" 

378 E*'4>--14 PAUL RICARD E. TOBARLY-P. TABARLV 

388 E*'3)--1G CMOPENTE MARITIME P. FOLLENEANT- JP. FOUNTAINE" 

338 £*'G)»-17 ELF AOUITAIME M. PAJOT-P. TOYON" 

&B8 E*'7)-"23 unUPRO JAAOIN V. FAUCONNIER- J. PARNORIER" 

618 E*'BJ-"27 KER CODELAC F". BOUC*CR-P. AYRS5E" 

628 E»'9)-"44 BIOTMERM II F. ORTHOUD-P. MOUREL'' 

S38 E*'10>-'51 OELLOS AVENUE f. GIROD-D. MOREAU" 

648 E»'ll'-"77 JET SERVICES II P. nORVAN- J. L£ COM" 

638 E*'12)--84 TRAN6AT TAB QUEBEC M. 8IRCH-L. PEYRON 

668 £»<13)-'1W MCCCAAU.L08 P. FShlkAmn-JY. TCALAIti- 

678 E*'14)--343 BRITTANY FERRIES D. OILARD-M. MABI RE" 

£88 E»'13>-"993 CHARLES HEIDSIECK V A. GABBOY-V. DEVICTOR" 

682 F0RI2-1T013IPRINTE*<I2) :NEXTUP[ OBTHF.NCOSUB738 

S83 RETURN 

698 F0RI-1TDA 

G95 PRIN7a97B.C»<I)i".CHOISI9SEZ L£ NO DE VOTRE BATEAU -nINPUTB 

780 CLSiIFB-2THENC-38£LSEIFB-3THENC-114ELSEIF8-7TMENC-178ei.F,F_IFfi 

-16THENC-242ELSEIFB-lGTHENC-3e&ELGElFB-17THENC-37BELSEIFB-23TMEN 

C-*34ELSEIFB-27TMENC-438eLSEIFB-46THENC-362ELSEIFB-51THENC-62GEL 

SEIFB-77TneNC-€-30ELS£IF&-84THENC-734EL3E718 

718 [FB-lllTHENC-81BCLSEIFB-343TMENC-e82ELSEIFB-393TMENC-346 

713 IFC-fl'GOSUB340iGOTO695 

716 Il-IiFORD-tTOIlf I»Oi IFC-C' I )THENE-1 

717 NEXTH-I1 

718 IFE-lTMENC-8i0OBUB348iE-8<00T069S 

719 FDRW-lTO15:IFB-VOL'L£FT»'E*fM).3))TMEN720E;LSENEXT 
728 NB«a)-E*'W>:W-15!NEXT 

724 CfD-CiB'D-BiC-BiGOSUBSiB 

725 OOSUB738 : G0T0748 

738 IFI-1 iIFC'l) ()0TMENPRINTaC'l).C*'l) Il RETURN 
732 IFI-1 IPETURN 

735 IFD1 :I1-I IFORD-ITOII H-D 

736 IFC<n-0THEN738 



31. 170. 



tea. 153 

131. 169 

&ATQI31 



143. 



179 
1S7 
l£Q. 16B 
D0TA131 
12E. 12E 
131 • 129 
173. 131 



131.131 
DATA170. 

123. 139 

170. 191 

DATA 143 

168. 1 

143. 143. 
. D0TA143. 14 
88. 198. 191. 
I DATA 1 78. 19 



872 DATA 136. 
28. 178. 151 



170. 151 



874 DATA128 

31. 129. 138 

31. 131. 131. 
900 CLS1PRINT35 
D3*»"iM*-' 
LE POINT EUROPE 1 
318 PRINTTAB'67>" 
S CETTE COURSE"i:PR 
R REVENIR LORIENT 



131 



131 



131.171. 



153. 1E1. 12S. 17B. 139. ieS. 128. 



131. 131. 191. 131. 131 ■ 



129. 1G0. 159. IE 
:. 128. 132. 134. 131. 158. 
I. 162. 189. 128. 128. 128. 128- 191. 128. 128. 170. 
i. 161. 175. 168. 170. 169. 
. 175. 14e. 128. 191. 152. 
:. 12S. 138. 166. 12e 
:. 128, 138- 129. 128. 128. 
I. 128. 128. 131. 130. 129'. 
:. 128. 131. 128. i: 
I. 179. 131. 131. 163- 179. 



. 136. 129, 12E. 128. 128. 
120. 131 ■ 12S. 128. 138. 



.. 179. 167. 131. 131. 163. 



.161. 



1£8. 186. 156. 172, 180. 144. 128. 128. 128. 188. 188- 
128. 128. 176. 188. 140. 172. 180. 146. 128, 188. IBS. 
133. 144. 128. 190. 191. 148. I 30. 131 . 131 . 129- 128. 
128. 131. 131. 129. 128. 128 

191. 191. 148. 140. 143. 143. 132, 128. 128. 178. 191. 
132. 174. 131. 145. 128. 128. 187. 191. 132. 170, 191. 
170. 191. 128. 178, 191.2G.29 

130, 139. 141. 142. 135. 129. 128. 128. 128. 170. 191. 
128. 128. 131. 143. 148. 142, 133. 129. 128. 163. 143. 
138. 143. 133. 143. 143. 133 

26.^9. 175. 131. 191. 163. 143. 143. 143. 191. 131. IB 
23, 2£, 23. 178. 131. 191. 128. 188. 148. 128. 143. 163 

31. 191. 169. 128. 176. 17£. 1 30. 191 . 1 23. 1 30. 191 . 

83. I&8. 151. 131. 131. 183. 130. 191. 131. 131 . 171. 

43. 168. 198. 191. 159, 129. 2G.29 

76. 176. 17£. 131, 131. 126. 191. 128. 128. 



145. 170. 149. 123. 128. 191. 128. 131. 



. 13 



176. 128. 128. 168. 176. 184. 131 . 131 ■ 1 83. 144. 26. : 



123 

D2»-.D3*JPRINTTfi8'l2)D4*iD5*: :D1 »-" ' i 02*-"" i 
FORW- 1 TO3880 : NE X T : CL5 : PRI NT " LA TRANSAT 

.ORIENT-LES 9ERMUDE5-L0RIENT" 

MANCME 22 MAI 1983: 50 BATEAUX S* ENGAGENT DAN 
NT"D£ 6000 MILLES A TRAVERS L - ATLANTIOUE POU 
iPRINT-APRES AVOIR VIRE LA BOUEE DES BEHMUDE 

320 PRINTTA8'681"A VOUS MAINTENANT DE PEFOIRE CETTE COURSE EN CM 
0I5ISSANT-:PRINT-'V0TR£ BATEAU.EN DETERMINANT VOTRE ROUTE EN FDNC 
SENS ET-:PR!NT"DE U> FORCE DES VENTS. DE L - ANTICYCLONE. ET 

338 FORW-lTO5B80iNEXT:GOTO2B00 

J-J*liF0RT-lTOAHIFN'T>-lTMENNEXTEL5EC»-C»'Ti :nB*-nB*'T> ILO 
)>Lfl-LAfT>iP-P'TliL8-LB<T)iRl-fll <T)!DOT01B13 

N-B!F0PA-lT0AHIFN(A)»!THENNExrEL5£N-l:NExT 

IFN-!THEN1030EL5EN-2:GOTOlB8fl 
813 IFJ-ULA-47.7!LO*3.3 

015 GOSUB1050:LO<T)-LOlLA'T»-LAlP'T)-PlLBIT)-LBiRl 'Tl-Rl 1NEXT 
030 GOTO 1888 
860 GOTO1000 

050 IFLO(3JTMENGOSUB375ELSEJFLO>S3TM£NGOSUB400ELSEP-2iCL5 
055 GOT01I38 

060 M-BiGOSUB1408iPRINTS896.MID*'NB*.4. 28) i" ' " 1C»1 "> " 1PRINT3965 
■ LATITUDE:"WNT'LA«-lB)/10t~NOPD LONG I TUDEi " i INT'LO-10> /10I "OU 
ST. ORDRE 7't 

070 A*-INKEY«: IFA*-"D-ORA*-~N~ORA»- , *S"ORB*-"E , 'THEN1B90ELSEIFA*- 
r'THEN1300ELSEIFQ»--2"TH£N2888ELSEie7B 
090 GOSUB1750iPRINTS335,"VIT£SSEi"iVBt "NOEUDS "1 
100 L-0. 06-VB: IFA*--0"TMENLO-LO*LEL5EIFA*-"N-TMENLA-LA'LELSEIFA 
-"S-THENLO-LO-LELSELO-LO-L 

140 IF*<8CRX> 127ORY(0ORY)41THEN1 150ELSERES£T<X. Y) 
150 IFL0<31TMEN1 132EL5EIFL0133THENI 134ELSE1136 
152 X-123-4-LOHFP01THENGOSUB373 

133 GOTO 11 70 

134 X-339-6*LOJY-98. 4-2*U»: IFP O 3THENCOSUB400 

135 G0T01I8B 

156 X-231-4*LOi IFP021CLSIP-2 

170 /-101.4-2*LO 

180 IFX(BORX) 127ORY*0ORY)41TNEN1285ELSERESET(X, Y) : IFP-31 IFX (8Bi 

F/<27ANDY123THENL8-1 

200 SET IX. Y) :IFLB-1ANDP-1 I IFINT' Y)-6l IFX> 1 10THENN(T)-1 iOl-01-H 

(T)-0UA2'T>-6 

203 IFP-3I IFX(80I IFY'27AN0Y) 23THENL8-1 lR-l!R*-"UX BERMUDES" 

283 IFP-IHFINTfY)-17< IFX> 890NOX <93TMENR-1 iR*-' LA COROONE' 

286 IFP-ll IFX'IBi JFY>28ANDY(30iR-l IR*-"UX ACORES" 

287 IFP-1 I IFX) 21ANDK(24> IFY) 38ANDY<361 R-l IR»-"UX ACORES" 
203 IFW*-"NON-THENM*-""ELS£IFRO0ONDR1-1TMEN2180 

210 IFM-lTwENia&e£LSEIFL0>43iK"RND'58> I IFW-18THEN21 38 

215 U-RND'58)iIFH-58iW-RNDi3i :0NWG0T021 32, 2134.2136 

220 g-RND'2B8>iIFW-HW-RNDf2) I0NWOOT02 162. 2164 

238 W-RND'6080>1 IFU-1 TMEN2280 

268 R-eiA2'T)-A2'T>*HIFA2<T))6iA2'T)-BiA2(T)-A(T)iA'T)-8iRETUR 

1258 GOTO 1860 



13BB CLSiM-1 :PRINT322. -BILAN METE0«OLOOIOUE-lF0«Vl-6T0l6lSCT. 2. Y 

1):nEXT:PRINT3130. -NOH DU BATEAU; * :MID»- N8*. 6. 20. 1 : PR!NT319*. "NU 

HERO 0FFICIEL!"tLEFT*.N8*. 3' ::P»INT3;58. "SHIPPER ET EOU1PIER: "I 

M ID* i NB*. 25. LENi NB*> -24 I : 

1338 PRINT3322- -RESPONSABLE: " iC*i PRI NT: PBI NT-POSITIONi lAT.i-jlO 

!-N0RD":PRINTTA8' 181 "LOW. i " ILOl -OUEST-iPRINT-PRESSION ATMOSP>€RI 

OUE:"lPAi-MILLIBAR5-:PflJNT-SENS DU VENT i - 1 SV* : PR I NT - FORCE DU VE 

NT:--.FVJ-NOEUDS- 

1393 DOSUB2258:GOrO105e 

1688 G-O&S'LO-FO' :H-ABS' LA-FA > :D-SORi H.;.&.2> : PA-PA' 1 )-Dl IPPAt 10 

15THEN143BELSE1450 

1630 PA-1883-RND'ie) 

1658 IFLA150: IFLO) 35TMEN1 508ELSE1318 

1468 IFLP14B: IFL0)45THEN1 308ELS£IFLO> 35ThEn1528ELSEIFL0>28ThEN!5 

10ELSEIFLO) 10rHEH15;8ELSE1580 

1470 1FLA1355 IFLO) 23TMEN1508EL5EIFLO> :8Tm£N1328ELSE1538 

14E0 IFLA>3-0: IFLO) G8TMEN154BELSEIFL013STMEN133BELSE IFLO) ;«TkCN13 

E0EL5E1530 

1498 IFLAI3OTHEN1530 

1508 Sv*--0UEST-:O0T016B8 

151B SV*--SUD-OUEST-IGOT016B8 

1520 SV*--N0RD-0UEST-:GOT016ee 

1538 Sv«--N0RD-:OOTOl£ee 

154B SV*-~5UD~E5T":GOTO16B0 

1558 SV*--EST":GOTOlG0e 

1568 SV»--NORD-EST":GOTO16B0 

1600 IFlAi65ThCnS=35ElSES*25 

l£18 FV-INT<lS*M013-PA) )• 10) / 101 RETURN 

1750 IFA*--N-:IF5V*--N0PD-TnENVl-6ELSE:FSV*-"St)D-TMEN'^l-;ELS£lFS 

v*«-ou£St-orsv»--est-tmenvi-telseifsv»--sud-est-orsv*--suo-ou£st 

17G0 IFA»-"S":IFSV*--nORD-TMENV1-:ElS£IFSV*--SUD-tmENV1-6ClSE:fs 

V»--0UEST-0RSV*-' i EST"TH£NV!-3ELSE!FSV*--SUD-EST-0RSv»--SuD-OueST 

■-TMENV1-3.5ELSEV1-2.3 

1770 IFA»»-e , -:IFSV*-"NORD-0RSV*--SUD"THENVl-3£LSEIFSV*--ESr -T«£N 

Vl»4ELSEIFSV*--0UEST-TMENVl-rELSEIFSV»--NORD-OUEST-DRSV*--SUD-0U 

EST-TMENV1-2.5ELSEV1-3.5 

L780 IFA»--0-:1FSV»-"NORD"ORSV*--SUD-Tm£NV1-3ElSEIFSV*--EST-TmEN 

Vl-2ELSEIFSv*--0uE5T"THENVl-4ELSEIFSV*--SUD-£ST-ORSV»--NORD-EST- 

TMENV1-2.SELSEVI-3.3 

17B5 IFR1-1THENV1-V1-1 

1798 V8-<INT"FV/V1)-18) WIB'RETURN 

1808 CLSiPRINT"PC DE LO COURSE i LOC AUX D'EUROPE 1 PARIS' i PRInTTAB 

f 1D-CLASSEMENT PROVISOIRE IREPERAOE "i CHR*<34 > : -RRGOS" iChR*' 34 i 

1-)"IIFN-2IPRINT38G. -FIN0L"iSTRING»<25. 32> 

1818 PRINTSTRING*'B3. 129) 

1S40 F0RA-lT00l:D'A>-8iD2(A)-BiDl<A)-eiM(A)-8iCl*10)-"-:LNlA)-8i 

LTiO)-8iD3fA)-0:NEXT:a-8iM-atO4-0 

1850 F0RA-lTORliG-ABS'L0'A)-S5. 2HM-OBS'LO< A) -32. 21 iD<0>-S0R'Mt2 

»G»2) 

1855 IFLB(A)-BTMEND(A)-D'A).63. 61 71ELSE0CO) -SORf'LO'A) -3. 5)'2*'L 

A»A»-47.7)»2) 

1837 IFO'O) OBiD(O)— G(0) 

1B6B D2'A)-D'A>:NEXT 

1888 FORA-lTOAliDKfl)-D(A) iFORK-1 T001 > IFDCK) ( D< Al TMEN1830EL5ENE 

XTKi GOTO 1380 

1E90 M'O)-D(KHD'A)-D'K) 1A4-K1NCXT 

1980 IFM(A)-8TMENM!A)-D'A)iD(0)-933:OOT01987 

19B3 DfA4)-999iD'A)-Dl 10) 

1907 NEXTO 

192B FORK-1T0A1 1F0RA- 1 T0A1 t IFM'K>-D2< 0) THEN 1930ELSENEXTiDOTOl 968 

193B Cl»rx>-C»<AHLN(K)-LO(A) ILT'K)-LA(O) INI *IK >-NB*(A> INEXT 

1968 NEXT 

1938 G-I70!FORK-lTOAliPRINTK!"--i)1ID*(Nl»r><>.6. 19) !'■ ("lCltCK>l" 

>"lG-G'64iPRINT3'0). INT(LT'K) -10) /10T "N. "I INT (LN(K) -18) / 101 "0. " 

.NEXT 

1960 IFN-2TMEN1960EL5EGOSUB22501 GOTO 1040 

2000 CL5:M-I:PHINT317. "ORDRES POSSIBLES" :PRINT" - BILAN NETEOROL 

DGIDUE 1-iPRINT" - RAPPEL DES ORDRES 

2-iPRINT" - DIRECTION NORD N'lP 

RINT- - DIRECTION SUD S" 

2070 PRINT" - DIRECTION OUEST 0"l PRINT" - 

DIRECTION EST E" I PRINT > PRINT"C00RDONNEES 

DU POINT DE DEPORT ET D' ARRIVES (VILLE DE LORIENT) I " i PRINTTOBC 1 
4)"LOT. :47. 7 N. LDN. 13.3 0." 

2080 PRINT'-COOROONNEES DE LO BOUEE DES BERMUDESi " i PRINTTAB' 14) "L 
AT. 132. 2 N. LON. 163. 2 0. " i PRINT-PORT DE REPARATION! - LA COROG 

NE LAT. 141.5 N LON.iB.7 0" 1 PRINTTAB(28) "- LES BERMUDES" i PRIN 

TTAB'20)"- LES ACORES LA. 135 N. LON. 1 27 0" 

2B95 DO5UB22SBiIFZ-BTH6N580ELSE1030 

21B8 CLS1PRINT3322. "VOUS ETES A" i R*i 1PR1NTT0B'&6) "DESI RE2 VOUS F 
AIRE ESCOLE "liINPUTH*iIFW*-"OUI"THEN212BELSEIFH*-"NON"THEN103eE 
1.SE218B 

2128 CLS1PRINT3322. "VOUS ETES A"!R*1".V0US POUVEZ REPARER VOTRE 
BATEAU. "1PRINT" ATTENTION' SELON LE REOLEMENT VOTRE ARRET DOIT E 
TRE DE 24 H.":Rl-0iOOSUB2230iOOTO2130 
2130 0(T)-A2(T) IO2(T)-6iGOTO1240 

2150 CLSIPRINT3322. "VOUS AVEZ HEURTE UNE BALE 1 NE 0U1 DORMAIT EN 
SURFACE. "1U-RND(4)UFW-3TNEN2170ELS£21G0 

2152 CL3IPRINT3322. "LA GRANDE VOILE EST DECMIREE. IL FAUT LO RECO 
UORE. .. -1GOTD21G0 

2154 CLSIPRINT3326. "DES DRISSES SE COSSENT. IL FOUT LES CMONOER" t 
C0T02168 
2136 CLSIPRINT3327. "IL FAUT GRIMPER AU MAT POUR REPORAT ION" iGOTO 



1IFA2' 



216c 

2160 PRINTT0B'7)"CECI VOUS FAIT PERDRE OUELDUES HEURES.. 

T)-6THENA(T>-lELSEA2'T)-A2(T)*liG0T02iaa 

2162 CLS1PRINT3336. "VOIE D'EAU AU FLOTTEUR BOBORD. . . " IGOT021 70 

2164 CLS:PRINT3332. "FISSURE DANS LE BRAS OE LIAISON. .." I GOT02 170 

2178 PRINT"CECI VOUS OBLIGE D 1 EFFECTUER D 1 IMPORTONTES REPARATION 

S AU PORT"iPRINT"LE PLUS PROCHE. VOTRE VITESSE S' EN TROUVE REDUIT 

E. "iRl-1 

2180 COSUB2230>IFLO(31THENGOSUB373CLSEIFLO)53THENGOSU84BBELSEP-2 

iCLS 

2138 GOTO1050 __ 

2208 CLS1PRINT3332. "UNE VOIE D' EOU EST OUVEPTE. . . " i PRI NT" LE BOT 
EOU VO COULER...LA 8AL1SE DE DETRESSE " lCHR*'34H "OROOS" iCMR*( 3* 
)|- EST-1PPINT-DECLENCMEE...LE RODCOU DE SURVIE EST MIS EN PLACE 

2210 PRINTr08178)"DEJ0 UN CARGO NORVEGIEN MIS LE COP VERS VOUS 

2228 GOSUB2258iNrT)-liO2'T)-6IO0T01?*B 
2238 PR!NTaiB19.CHfl*( 128) lUFPEEK' 14488: 
2268 FORW-lTO30iNEXTtPRINT3IB19.CHR*<17l 



HEBDOGIC1EL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM : 

PRENOM : 

ADRESSE: 

REGLEMENT JOINT : □ CHEQUE □ CCP 



MATERIEL UTILISE : 
CONSOLE: 
PERIPHERIQUES : 



DEVIS 



Le programme Devis "toume" sur Apple 2 48K,ou 2e, 
muni d'un lecteur de disquettes, de poignees de jeu et 
event uetlement d'une imprimante (non necessaire). Ecrit 
en basic, il pourra etre adapte a d'autres materiels assez 
facilement sauf peut-etre la partie graphique. 
Ce programme etablit un devis de gros-ceuvre (maconne- 
rieettoiturepourunemaisonindividuelle). Apresavoirde- 
mande a I'utilisateur les dimensions de la construction 
projetee. il fera les plans de facade de la maison, I'utilisa- 
teur placant pontes et fenetres a I'aide des manettes de 
jeu. 

Enfin un devis est etabli, a I'ecran ou sur imprimante. 
L'ensemble du programme s'adresse a un public restreint, 
mais les parties graphiques sont superbes ! 

J.R DUBOS 

Le programme Devis se compose de trois parties. Le programme pro- 
prement dit, s'appele "Devis". 

Apres avoir tap6 les trois programmes et les avoir sauvegard£ sur 
disquette, il faudra executer le programme data-tables qui creera un 
fichier binaire de tables de forme. 

Pv\s on creera un fichier de prix avec le programme "gestion de fichier", 
en y indiquant les noms de produit, unites de facturation. et prix unitai- 
res survants. 

Semelte M3 1027.00 

Murcreuxde25 M2 144.20 

Rancher isolant M2 192 30 

Mur creux de 20 M2 134.50 

Unteaux M3 3362.00 

Chainage M3 3000.00 

Crepi tyrolien M2 89.70 

Charpente fermette ijn 678.00 

Couverture canal M2 134.10 

Couverture mecanique M2 1 1 0.40 

Couverture tuile plate M2 220.00 

Ces designations seront entrees dans le meme ordre que ci-dessus. 
Toutefois les prix pourront etre modifies. Ceci pour une utilisation du 
programme tel quel. Si le programme est developpe par le lecteur. le 
fichier prix pourra bien entendu etre complete. 
Ces operations preliminaires etant faites on pourra lancer le program- 
me devis. 




DATA TABLES 



APPLET 



i.O. 145.0, 155,0, 167,0, 



1, 16. 1.27. 1, 



182. 1, 195. 1,206. 1,215. 1,226, 
1.237. I. 249, 1,5,2, 14,2.25,2, 
146,2,31,3, 155.3.164,3,171.3 
.91,73 

DATA 2.0.12.37.29,63,23,54.46 
.30, 14,45, 12.36.7.0.36, 189, 1 
50.49,23.45.4.0. 101,228.63,2 
3, 149, 1B6.46,43,37,0,37, 12,6 
0.63. 183, 146,21,45, 12,36,0,5 
8.39, 12, 12.12 

DATA 54.54,245,62.0,56,39.44, 
43.245, 170,34,30,63,28.4,0. 1 
73,246,63.28,36,37, 12, 12,53, 
O, 12, 12,60,63. 1 19, 146,34,3,0 
,231, 100,45.21. 190,21,246,63 
. 28. 44. O. 231, 100,43 

30,23.63,4,0,8 
i.O, 145,226.28,28, 12,12. 



DA 



12.6,0.36,103, 137,! 

4,0, 147,98, 12. 12.28,28,28.6, 

". 12,12,20,63,23, 149, 10.22. 3 

.0.3B.35 

DATA 110,9,36. 103. 228. 28, 30, 3 
0.46.0,63,36.44,43.21, 190, 14 
■ 190.63.39,44,0,137,242,63.2 
B.36.36. 12,49,21,6,0, 9,34, 30 
.63, 39. 36. 36, 44. 45,21,62,0,3 
7. 1B3,5S,36.36 

DATA 36.45.43. 130. 146, 63.4. O. 
57. 183.26,36.36.36,43,45.6.0 
. 17,33,62.63,28,36,36,12.43. 
33. 0, 43. 43. 36, 252. 27. 34. 34. 3 
4,7 7,33,36,0,82.38, 103,36,36 
.60,45,6,0 

DATA 133.114.43,12,36,36,60.0 
, 1 15, 14.21,223,33,36,36. 108, 



160 






,63,63, 127, 138,43,45,53,34,3 


















170 


DATA 54,54,34,34,34,54,34,34 








,8,45,45,36,36,36,36,36,36,3 




6, 36, 36, 36, 36, 36, 63, 63, S3, 54 








54,6,0,54 


190 


DATA 34,34,34,34,34.54.54,34 




.54,54, 43, 43,43, 45, 43, 45.45. 




43, 45, 36, 36. 36, 36. 36, 36, 36, 3 




6 , 36 , 36, 36. 60, 63 , 63 . 63, 63 . 63 




,63,63,63. 143, 17,54,54.54,54 




.54,54,54,34,34 


190 






,36,36,36,36,36.63,63,127,73 




, 73.49.54,34,54.54,54,54.34, 














2O0 






,45,43,43,45.43.45,45.45.45. 




45,45.43,36.60.63,0.54.43,23 




7, 19,246,47,45,3,0.54,54, 118 




,40, 3 68,5.0,45,45.45,34.34.5 




4,63,63,63, - 19, 36 


210 


DATA 36, 36,0, 


Z20 


READ AD: READ LO: FOR I - Af> 




m AD * LD - 1: READ VI.: POKE 




I. VI.: NEXT I 


;■ m 


PR INI CHR« •■u : "BSA'/EDATAS, 





,33,36.36, 188,6,0, 14.86. 36. 3 


6.36,223,31,46 






60.36.63.54.46,30.54.5.0, 1 70 


.21 ,31 .6 3,32.36, lOO, 43. 21.34 


,34,0,119,21,21,223, IS, "'., '6 


,44.43.21, 190.6 


DATA 0,231,100,45.21.151.21. 


246,63,28,4,0,36,31 ,40,49,24 


9,146,31(46,0,146,231, ''. . ■'.. 


1 09. 9. 34, 34. 190,5.0, 1 46,28. V 


8.36,36,77,49.54, 190.6,0.246 


,30.36.36.36,77,49 


DATA 34. 190.33,7,0, 12, 12,252 


.27. 118.22.23. 1 IO,9,22B,4,0, 


2B.28. 108,9, 246.714,54,5,0. 1 


2,12,60,63,119, 146.23,46,45, 


37,0.54.54.54.54.54.34,34.34 




DATA 54,54.54.54.45.45,43.43 


.43,43,45,45.4.36. '-',, '■',. [6, 


6,36,36.36,36,36.36, ;6.36. ".6 


. .'6. 16,60,6". 63. 63, 63, 63, 63, 


63. 79,82. 20 1. 4 3. 43. 45. 43. 43. 


33,34,54.62.63 


DATA 63,63,63.39,36.36,148.1 


46, 146.42.45.45.45.43,53,34, 


34,62,63,63,63,63,39, :<,. 16,1 



GESTION DE FICHIERS 

4790 DIM PR*(40) ,OU» <40> ,PR (40) 

4820 G0SU8 6260 

4830 HOME : PRINT *PRlJt DE BASE 

MENU" 
48BO VTAB 3: PRINT "I AFFICHAG 

E DES PRIX" 
PRINT "2 MODIFIER UN PRIX 



ISO DATA 



146, 146.42.45.43 
1,54,62,63.63.63,63 

. 148, 146. 146, 146, 11 



54. 54. 54, -,4.54. 54,' 
4.54.54.54. 34 . 34 . 5' 
.43, 43, 45. 43. 45. 4-, 



4910 
4740 
4970 
3000 

3060 
3O90 



5150 
3 1 BO 
5210 



3360 

SJ90 
S420 



PR It 
AL" 



AJOUTER UN PRIX" 
PF. TOUR AU PRO PP 
NOUVE 



. ;/.. './,, :/.. ■.(, 



E t A6L I R 
AU FICHIER PRIX" 

VTAB 13; PRINT "VOTRl CHOI ■ 
"II SET R*:R - VAl. !R»): I 
R '- 1 OR ft 5 goto 3030 
ON R ooro 3090, 3360,' 3760,73 



HTAB ]/i INVERSE : PRINT " F 

A R [ F"! PRINT ! PRINT "PR 
DDUIT'H MTA8 23: PRINT "11:1 
f: nni-r\t,i : fidnr 

PUCE 34.4 

FOP I - t TO NP 

PRINT PRtfllli HTAB 23l fsini 
ii'i 1 1 j : HTAB r -j PRINT ■■ it-: 
•■ 1 out I I > 

IF I N f f 1 / 151 - I / 15 I Ht N 

(IF I Rt| HOMF 1 VTAB 3 

NEXT I 

Ptt r :->,•- 

VTAB 24: PRINT "POUR cnrtnri 

UER. RREGCiUZ uni inuoiF "u gf: 1 

R*: OOTO 4050 
HOM1 

FDR I - I TO NP 
PRINT : PRINT I I I ft (I R4I I 
I . 16) I : HTAfj 18: PRINT !■(" 1 ) 
PRINT "MQDIFICAT 



5450 


GET R* 


3480 


IF R* - -H- 80T0 3720 


5510 


IF M *D* GOTO 3450 


3340 


PRINT : INPUT -NOUVEAU PRIX 




1 -IPflUI 




PRINT D*l'OPEN-|FI* 


3600 


PRINT D»;-POSlTION-tFI*i -.R 


36 30 


PRINT Dtl-WRITE-tPIS 


5660 


PRINT PR(!> 


3690 


PRINT D«|-CLOSE-tFI« 


5720 


NEXT I 


3730 


GOTO 4B50 


57BO 


I - O 


3810 


HOME 1 I - J • 1 


3B40 


VTAB 10: INPUT "NOM DU PROD 



: -|PR»(NP - 111 PRINT : 
UT -UNITE DE FACTURATION 
IQIMHNP * I): PRINT j INPUT 
X UNITAIRE : ~|PR(I * NP 



3870 


VTAB 23: PRINT "AUTRE PRODU 




IT 7-1 SET R«: PRINT 


39O0 


IF R* - -0- GOTO 5B10 




IFM < > "N" GOTO 5670 




PRINT D«"APPENa _ IFI» 


3990 


PRINT D«("WRITE-!F!« 


6020 


FOR J = NP*1T0NP*I:PI 




PR«(J>! PRINT OU*(J>: PRINT 




PR(J>! NEXT J 


6030 


PRINT D*l "CLOSE~lFI» 


60BO 


MP - NP 4- 1 


6110 


PRINT D*"OPEN"|FI» 


6140 


PRINT D»"NRITE-(FI4 


6170 


PRINT NP 


6 200 


PRINT D*i"CLOSE"tFI« 


6230 


GOTO 4BSO 


6260 


REN •• LECTURE FICHIER 




PRIX •• 


6290 


D* - CHR» <41 


6320 


FI* - "FICHIER DEV1S* 


6350 


PRINT D41-DPEN-IFI4 


6380 


F>RINT D»! -READ'tFI* 


641 


INPUT NP 


64 40 


FOR I - 1 TO NP 


6470 


INPUT PR*(I),QU*(I),PRCI> 


6300 


NEXT I 


6530 


PRINT D«(-CLOSE-lFI« 


6360 


RETURN 


6390 


REN •» ECRITURE DU FICHIER 



■ HOME : PRINT -ATTENTION: VOU 
S ALLEZ DETRUIRE L'ANCIEN FI 
CHIEft. D'ACCORD^-: GET A* 



6690 


IF Al < > -0- GOTO 4830 


668O 


NP - 


6710 


HOME ; PRINT "POUR TERMINER 




, TAPEZ TIN'-: VTAB 10 


6740 


NP - NP * I 


6770 


INPUT -NOM DU PRODUIT 1 "IP 




R«<NP) 


68OO 


IF PR*(NP> - "FIN" THEN NP = 




NP - 1: GOTO 6920 


6830 


INPUT "UNITE DE FACTURATION 




: -;du»(NP> 


6860 


INPUT "PRIX UNITAIRE : "JPR 



6930 


PRINT 


D*;"OP£N"lFI* 


6980 


PRINT 


D*l"OELETE"iFI 


7010 


PRINT 


D*l "OPEN"(FI« 


7040 


PRINT 


D»i "WRITE"!FI» 


7070 


PRINT 


NP 


7100 


FOR I 


- I TO NP 


7 1 10 


PRINT 
PRINT 


PRS(l): PRINT 
PRM1 


7160 


NEXT 




7190 


PRINT 


D»i "CLOSE"!FI* 


7220 


PRINT 


: PRINT D»I"RU 



ION'' 



DEVIS 

10 REM 

20 REM DEVIS 

25 REM 

30 REM — CLUB MI CROOUANT — 
40 REM --24300 NONTRON — 
30 REM 

60 REM APPLE »■ 

70 REM 

200 LOMEM: 24576i TEXT 1 HOME :D 

* ■ CHR* (4)jS - 12286 
230 S2 ■ INT (S I 256) :SI - S - 

S2 • 236: POKE 232. SI: POKE 

233, S2 
240 POKE - 16203,0: POKE - 162 

03,0 
2SO TEXT 
260 PRINT CHR4 (41 "BLOADDATAS, A 

"IS 
300 SCALE- 1 
320 HOME 

330 M« - "LA MAISON" 
330 DIM L<20>: DIM 0U(2O) 
3BO DIM P<!Q,10>s DIM PtlO,10> 

410 REM DEVIS 

4 20 HOME 

440 VTAB 3: HTAB 3: PRINT "COMBI 

EN PEUT COUTER LA MAISON DE 

VOS REVES 7" 
470 VTA8 6: HTAB 3: PRINT "POUR 

EN AVOIR UNE IDEE IL VOUS": PRINT 

"SUFPIRA DE REPONDRE A MES D 

UE'iTIONS." 
300 HTAB li VTAB 24: PRINT "POUR 
CDNTINUER APPUYER SUR UNE T 

OUCHE "1: GET A» 
530 HOME 
360 VTAB 10: INPUT "DUEL EST VOT 

RE NOM ":NNi 
365 VTAB 14: INPUT "QUEL EST VOT 

RE PRENOM "!NW»:NN» - HN«. * 

" " * NW4 
370 HOME : VTAB 10: INPUT "OUELL 

E EST LA DATE" 3 "IDA* 

390 REM QUESTIONS ... 

620 HUME 

630 NO • OlTT - OiSO • O 

680 HTAB t: VTAB 21: PRINT "OUEL - 

LE EST I. A LONGUEUR DE " ; M» I " 
"i 

710 INPUT LU 

740 IT 1,0 I - 6 AND LO ■ - 18 THEN 
GOTO 860 

7/0 IF LO < 6 IHEN HOME : VTAB 
121 HTAB 1: FLASH : PRINT "C 
■LSI UN ABR1 Xii. .1ARDIN"! PRINT 

S0VE7 moinf; Mow.:.n ■ 

BOO TF LO 10 THEN HOME ! VTAII 

12: HIAH 1: FLASH : F-RINI "(•: 
1 Vt 1RR1 M I SABLE, MAISON TRO 
P I.ONGUE '"! NORMAL 

li-M N0RMA1 : FUR I - 1 TU ?umO: NEXT 
1 OOTO 390 

B60 homf 

F)7'p HTAB I: VTAB 21: PRINT "UULL 
LE EST LA LAftGEUR DF "tM»i" 
"I 

920 iNF-llt I A 

WO IF LA - 3 AND LA • - 10 M ■< rj 

(.inn 1070 

9Uo IF LA 3 1HI.N HON! : VTAI- 

12: UTAH 1 ; 11 ASH 1 PR INI "A 
I I F/ ri'HI '.I IF7 PAIS PRI Ml I mm 
1111 PLUS"! PRINT "LARGE POU 



R PAS PLUS CHER ' " ! 

OR LA ■ LO THEN 
HOTC 1 VTAB I.-: HTAB li PLASH 
1 PRINT "JE VOUS AI DEMAMDE 
LA LAftGEUR. 'I PRINT "PAS LA 
LONSUEUR "I NCftNAL 

1040 FOR I - I TO 2OOO1 NEXT 1 GOTO 
690 

1070 HOME : VTAB lOi HTAB IO: F«INT 
-VOULEI •■ftXJS 1-1 VTAP 13i PRINT 
-I UN VIDE SANITAIRE 7-, pKiNT 

: PRINT "2 UN SOUS SOL "'i 

I tOO VTAB 74 t HTAB It PRINT "APP 
UVEZ SUR LE NUMERO DOISI ") 
: GET R«;R - VAL (R»> 

113© IF R < 1 OR R > 2 GOTO MOO 

1I60 IF R - 2 THEN VS - 2.20i SOTO 

1400 
1190 HOME : VTAB 5i PRINT "l O 

.60 M-: PRINT : PRINT "2 O 
.BO M-i PRINT : PRINT "3 1 

.00 M-i PRINT : PRINT "4 1 

.20 M" 
1225 VTAB 23: HTAB 1: PRINT "APP 
UVEZ SUR LE NUMERO CORRESPCH 
DANT A LA HAUTEUR CMOISIE 1" 
: : GET ft»:R - VAL (R«l 
12SO IF R - 1 THEN VS - 0.6 
12SO IF R - 2 THEN VS - 0.6 
1310 IF R - 3 THEN VS - 1 
1340 IF R - 4 THEN VS * 1.2 
1370 IF R < 1 OR R » 4 GOTO 1220 

14O0 HOME : VTAB 5: PRINT -QUELL 
E EST LA NATURE DE VOTRE TER 
RAIN 7" 

1430 VTAB 10: PRINT "1 APGILEU 

X-i PRINT : PRINT "2 GRANI 
TIDUE": PRINT : PRINT -3' C 
ALCAIRE- 

1460 VTAB 24: HTAB li PRINT 'DON 
NE? LE NUMERO CORRESPOND ANT 
I'll GET RtiR - VAL !R») 

1490 IF R < 1 DR R > 3 GOTO 1460 

I320 IF R - 1 THEN SS - 0.24 
ISSO IF R - 2 THEN SS - COS 
1380 IF R - 3 THEN SS - 0.12 
1610 HOME : VTAB 3: PRINT 'DUEL 

TYPE DE COUVERTURE DESIREI V 

OUS ?" 
1640 VTAB IO: PRINT "I TU1LES 

CANAL-: PRINT : PRINT "2 T 

UILES PLATES": PRINT : PRINT 

-3 TUILES MECANIOUES- 
1670 VTAB 24: HTAB I: PRINT "APP 

UYEZ LE NUMERO CHOIS1 "; 1 GET 

R*:R - VAL <R») 



170O 


IF R < 1 OR R > 


J GOTO 1670 


1730 


IF R - I THEN PE 
47jO - 9 


- 0.3:RR - 


1760 


IF R - 2 THEN PE 
461 G - 11 


» 1. 1:RR - 


1790 


IF ft* 3 THEN PE 
47tG - 10 


- 0.7:RR - 


1830 


Y - (VS * 2.6) • 
13 


3:V1 - VS 


1880 


H » LA • 13 / 2 • 


PE 


1930 


II - 17 




1940 


FOR I - 1 TO II: 


READ Ltl> 


1970 


NEXT I 




2OO0 


X - LO • 13 




2030 


F - 1 
OOSUB 3330 




2090 


PRINT CHR* t7> 




Z120 


GOSUB 2720 




2 1 40 


11-12 




2150 


FOR 1 - 1 TO 1 1 1 
NEXT I 


READ Kill 


21 BO 


X - LA • 13 




2210 


F - 2 




2240 


GOSUB 4220 




2270 


PRINT CFfR* 171 




2300 


GOSUB 2720 




2320 






2330 


FOR I - 1 TO II: 

NEXT t 


READ L < I ) : 


2360 


X - LO " 13 




2390 


F - 3 




7420 


GOSUB 3330 
PRINT CF«» (7) 






GOSUB 2720 




2300 


II - 13 




2310 


FOR I = 1 TO II: 
NEXT I 


READ LU>: 


2540 


X - LA • 13 




2370 


F - 4 




2600 


GOSUB 4220 




2630 


PRINT CHR* (7) 




2660 


GOSUB 2720 




2690 


GOTO 7430 






REM DESSIN DE LA MAISON 


2780 


X - X - 72 




2810 






2840 


1 — 1*1 




2850 


HODE - 2 




2870 


FFOME ! PRINT -VOUS ALLE7 MA 



2900 

29 2o 



INTENANT PLACER LES": PRINT 
"0UVER1UREU": PRINT "VOIJ^l DE 
VRE2 SELECT IONNE.H UN NUMERO. 

PUISDEPLACER L' UUVER1UREC0R 
RESPDNDANTE A L" " 
i PRINT "AIDE D'UN F-AODI 1 : CI 
LLE CI SERA POSMIIINNE EN AP 
PUYANT SUR LE BfHITON DU PADD 
LE" 
1 PRINT "SI vous SELECTI0NNS1 

UN NUHERFl MIM<\ ('Mi | . . [,*), 

VOUS PASSCRt/ DU BftAPHIOUl 
AUX INSTR1II I IONS" 

VTAI! 19: PRINI "OUVERTURE O 
I1F VOUS DESIRED I'l Al 1 1 : 

HTAF. Ill VTAU TO: PRINt " 
:: INVERSE : F'RINF "m"i- nih.mai 
1 PRINT "> Al«:UNT" 

•UAH I'l ; V1AF. 21 : PRINT " " 
l: INVERSE : PRINT " 1 " 1 : NORMAL 
: f Jv INT " F-UF. IF " 



2960 


HTAB ;-i : viaf. :■.': PRINT " " 




t 1 INVER',1 ; PRINI "'."! : rmi mai 




: PRINI '■ Ml Ml 11,1 - 


2990 


HTAB .'I : VTAU 2 ": PRINI - " 




t: INVl'R'iF : PRINI "?.";: N(H-:MAI 




: IPIN! - 1 1 Nt M-I '■ 




HTAB 1 1 viaii .'4: invi RSI ' 1 1 




■■I'll 1 l"l I '.Ml' 1 1 flUMI RO IB 




I " : : M(1F:MAI 




SOTO S063 




i,l 1 R| 


IO30 


1 A'.l ER«] -111: II R •' 




MIL 1.' •! nun J073 


"'■■■ 


hi. ■■ mi 11 11 TURN 


1060 


II MODI 1 III! N MIJIll 21 1 (» 




•r- ', 0| ' mi 1 492 2.01 GOTO 








M MODI .' "II MODI 1 ; '01 




iv ..,.,.; 1 1,1 1 492 1 1,0 


-..-.. 


OOTO ■" 10 


■■■ 3 


49 ■ ',"- 1 "i 1 ■<'■■ ".'." 


yOO 


w B * 3 


090 


1 1 ■ .1 


■. i I . , 


HCOJ HI. : llll .1 M 1 1 



Suite page 7 



BAGNARD 



Vous §tes un prisonnier et pour vous echapper il faut que 
vous ramassie2 tO coeurs faiss6s dans la prison par votre 
amie pour vous donner du courage. Attention, il faut que 
vous evitiez les geoliers et le gendarme. Vous devez vous 
d6pecher car il ne faut pas que le bonus arrive a 0. Vous 
avez le droit a 2 chances. Quand vous aurez ramasse 
10 cceurs. vous passerez dans un autre tableau (il y a 3 ta- 
bleaux differents). Des que vous aurez pris un cceur, il fau- 
dra que vous le deposiez en haut a droite de I'ecran. 

Denis BEAUVOIS 



Mode demploi 

Pour deplacer le bagnard vers ; la gauche appuyer sur N 

la droite : appuyer sur M 

le haut . appuyer sur A 

le bas : appuyer sur Z 

Pour prendre un cceur. il suffit de passer dessus(vousnepouvez prendre 

2 cceurs) Pour deposer un cceur appuyer sur la barre d'espace. 




■ ■. 

■ 
: ■ . I89i 

1070 IV E*F -I/-. 1 ■ 
.. I EEl ■ E*l M ■ 

10 ■' : II ■ 

.. , Z-CRNIlT"! fHEIII 
1083 in Z-CTHEH ■ .... 

. | ; -f. 5 P«P»IV POI EE*I i 
: il ■■ ■ 

5000 POI EMU .,...■..■.... L-.tti 

5010 F .■ EE ■ ■ I '■' ■■ ■ ■ ■■■■■■--' ■ W 

-.._■' i" ;■ ■ ■ . -■-... Lr=7?«e p*e DF«e . 

■ ■■-■■■■ . ■ . ...-■ -■■■■- I . I 

ooio e="o2 i;o=>:-4i2 r°8 &F=e 

. I»BU-I POKEMU.0 RETURN 

:(U-rJf»»»w»aiBBOHFWlW»»f«»»»* 

■ 1HT"*V0US t TE :. UH BWJnflRD ' 
lmj.-i-i FRitlT'-El FOUF Vv", E /HDEB' IL". 

■ [HT'TflUI QUE VOUS ftLLIEZ "J 

■ UIT"CHEF.':hef lo LC'EUt-'i un ". 
10050 FFilirPFiF un fcl L-L: DEPCT3IE2 

a - ;nr EH H«Ul fl DRQ1 IE l't L " 
l^ri.-ki pppir Ei'f-ftn. 
10080 PRINT" ilUTENTf QMS! VOUS DEVE2 EVITEF LES • El E*E JE LE B0MU3 H FRRJ E 

10098' PRIHT"jaaWW.POUB DEPLfli EF 'IIIIIIHIIIIIL: feHOHMfttl • lOMI >-'Jir(il'HIL 

i:.itn-i PFIIIT- FOUR DEPOSER LEHiIMMllMMlBi:OE'>- Em"E I E'sFfiCE 

10118 PP1MT"«.P0UP FPEIIIlf-E UN LUE'Ji IL EUFFjl DE PftSSEf 1:::: ... 

18129 FPlHfrtJUE TuULHE FOuF Jnutl-* 
[8138 FCKE198.8 HHIT198- I GETR* G0T06 

•J fFiJI .; f'ilt:>S'?-^ , , . 

-irtr-viXi;. ftVEZ TOTAL I "iE iWWflllMMIliMf-SC, - 

t =.o i s ffiih 'HH'itfcutii'ifWWPWMfc'; ■■• .'■ >■>._■.■■■. 

r -'I-- F rt:.-: ■-' llfPUT-'UlFEJOUEZ VOU?' d/H;" .PE* 
(38 8 IFREJ -■ rHEH RUN 



■■■■ lM=e£ m.= iu 01 = 1 5C*8 PRIHT"31HSTfAKT10«StOvH^?- KiruiH* lPfi*>"u"l 
HENX :■'::■■ 

■ . -i: t » . B ..' Mu=3fe*F6 Wrt=65 LW=«lb4 CW«38884 C-83 Ul=£-t.R=w ■ BU»2 

T MOM7 DE-33 Gfl-26 ;-f-.v. FL = S1 LF=77tf* CF-ii4^ i = ji Ei^loy L^= 7 .-'«;& U=j!844i.j 
i EC = 7«>S4 c 'L = ^i404 

378 IS;P0KE36S79,222:pRlHT"3««a"; 
10 PRINT- MM 1*1 v 

i£ print" «»:«u »»i 

M l»l " 

16 PRINT W**'MU )»1 ■ » 

13 PRINT HI ill i»t 

2v PRINT "»»l l»»kttl»»»»»l 
LZ PRINT"!*! IHMIIIIi»M)lllll>! 
24 PRINT "IB»»*I 1*1 

26 ■ - : ■ ■ •••>>! i»i 

28 PRINT " 



it 



115 FO 



co^A 



50 PRINT 
32 PRINT" 
34 PRINT" 
36 PRINT" 
48 FRINT- 
42 PRINT" 
46 PRINT-I 
48 PRIHT" 



>kl 



H ikl 



• II 



■ ■I 



•tMI 



>n 



•', :PCiKE8I41,168-P0KE 



"dm 



49 F0RI=3TCJ115TEP2 POKELH*I-C P0KECW*I.2 NEXT 

52 IFBUOTHEN15W8 

55 POKEE+P.BO POKECO+P.CR 

68 P0KELF*DF.FLP0KECF*DF,9 P0KEL2+IC/FL-P0XEC2+»2,I 

65 P0XELW»DM.WRPCiKECW*IiW.9 

66 IF01"2THENP0K£UJ+£iW,S 
75 X-PEEK.C1 S7i 
73 IFSC>9999THENSC=0 

80 PRIMT-flasttMiMfc-CORE ".iL/'^ttfiUnillll'llllli*' 
HBONUS "-B 

33 IFS-:20rHEKPQKE;iU.235 

35 IFXOS4THEN1888 

jij £=;■-: :fl^-j'>~E' :■: :■■: rv;,; 

92 POKEMiJ* 1.258 

95 P0KELF*DF.3 P0KEL2+D2#S I'F=DF+HV D2*D2+VN; SU=CLF+IiF+HV} : WS=<L2+D2*yN^ PI=PEEK 
<E+P> 

96 IF3W<LFTHEMK^»TH GGTOlSe 

97 IFSU>8124THENNY=-TH G0T0188 
9S IFUS<L2TH£NYN=TH GOTO180 
99 IFWS>3138THEN'/H=-TH 
188 IFPEEK<LF*llf-HW>«*ITHEHOOSUB6000:GOTO52 

;-=--= ■-■-■-■.--■■■--: ■■-.■ 30-= JB6080 G0TG52 

1 30 FOKELF+DF, FL ■ P0KEL2+D2- FL P0KECF*DF. 8 PGKEC2+D2, 8 

133 POKEMU+1-8 

140 1FG1=2THEH75 

159 P0KELW-DW.3 DW=DW+rjl IFDW+I)l>21THEflDl' ! -2 

155 IFDW+DK0THEND1=2 

168 IFPEEK^LtJt-DW^PITHENGOSUBeeea 0QTQ52 

170 POKELW+DW, S DW=DW*D1 POKELW+DW. Hfl POKECW+DW, 8 

509 G0T075 



V»C20 



18 



IV. 



1018 IFX=t10 THEN IV=-22 GOTO1860 

1028 IFX= DE THEHI7=22 GOTO1060 

1839 IFX-Gft THENIV=-1 G0T01868 

1949 IFX=IiP THENIV=l-GOTfJ1068 

1559 IFZ=SftNDT=lftND<E*P+r-/J=7723THEIISC=3i>B B=99 PCKEMU-228 CR=8 T=8-K=K* 



1 REflDUX NEXT 

■ POKE36876.HX FEmI'AE F0R^G=lTOflE-l58 NEXT P0KE36876.8 
'♦2 me. 'I :RESTORE 
+1 :EC=7684 RC-38404 




16018 F 

lotiiU FOi trio -: i =o 31- 
16925 KJ=I ;+l IFKJaOTI 
16939 IFG1>3THEMG1=1 
16340 DHG1G0T09. 17880 



FRI[IT"^S^la' , ; PGKE36e79.222 
PRINT" II M i»l k. I". 

PRINT" «• II HI 

FRINT"t»l II III 

PRIHT"B*SB»I M >»MI " 

PRINT" II II »••»*►» 

PRINT" II IMB»»»»»»»»3I 
PRINT" II !»»» mMVlP Hill H 
PRINT" l»»BI II II II 

17099 PRINT" II Itl l>HB*»ai II !■•! ' 

17100 PRINT" fill! MM 
17118 PRINT"S*;l»»»»»»»»»»it»B»»l 
17129 FR1NT" i»»tl l»l M 
17138 PRlNT"l»W*iail»*l M »l II 
17140 PRINT"»M»MI II IM >•»>•;« 
17156 PRINT" IIHII l»MIB»»M 
17160 PRINT" IM II IM »l 
17170 PRINT" IM II IM It 
17188 PRINT" IM I»B*»;«IM»MI 
17198 PRINT"IB*»*I»»M IM It II 
17209 PRINT" It IM IMI 
17218 GOSUB38009 GOT052 

17490 PRIHT'TSJUW". P0KE36879.222 



18818 RERDXG 

18015 P0KEMU-2.XQ 

18828 REflOBZ FOR I-ITOBZ^ NEXT 

1>A1?0 POKEMU-2. 9: NEXT -RETURN 

18949 DRTFI21 5. 609. 215- 609. 215- 270. 215. 698. 221, 600. 219, 2^8. 219. b99.^15,i.'0.t 15. 69 

8,212 

IS859 DRTR279.215.700 

19099 EC»EC+l=RC«fiC+l P0KERC.6 FOKEECC + 1 23 RETURN 

30989 TH=TRt22- IFTH>66THENTH=44 

40988 DMTR235, 399, 232. 300,229,408,232,409,229, 358, 221, 380,215. 308, 221, 300.229,30 

40010 DRTR232, 300. 229, 380, 228, 300- 229. 400, 229, 308- 232, 308. 235, 400, 235. 400, 235*35 



17410 


PRINT' 


■ 1 




IM h. ■"■ 


17420 


PRINT' 


If) 




■M 


174 30 


PRINT' 


■1 




IM»M 


17448 


PRINT' 


II 




IM II ". 


17450 


PRIMT 1 


■Ml Mil 




IM 11 ". 


17468 


PRINT' 


II »PMP*:«IIMI )! 


17478 


PRINT' 


II Pi! 




• Ill HI . 


17488 


PRINT' 


II IM 




II 11 it". 


17490 


PRINT- 


IM IM 




■iii wmmun 




PRINT' 


■ *K*ll l»l 


■ l»l '11 . 




PRINT' 


II iVMIMIMIMIMBMaiMMIl', 


1 75 -0 


PRINT 


l»M 


II 


IM " 


17530 


PRINT 


IMH 


p»iii**i»il " 


17549 


PRINT 


riii II 


IM 


IM " 


1 7550 


PRINT 


■oawww 


Pll HI ■*»»" 




PRINT 


11 


m»,-M 


m*m »n ii" 


17570 


PRINT 


11 


■) >ll 


IM 11". 


17588 


FRINT 


11 


II itl 


Hill . 


17590 


PRINT 


11 


II IM 


II 


17690 


PRINT 


IM»M 


■1 IM 


II 




P0KE8175.C POKES 181 


■ C:P0KE38855,2:P0t E 18981 


17612 


00SUB38888'-e0T052 




18998 


RESTORE^ FORM 


■9TO10 





40030 



49940 



DRTR232. 399. 223, 300. 232, 309. 2^5. 480. 232. 498. 232. 469 

DRTR235. 309- 232.309, 229. 480. 232, 408. 229, 358. 221- 388. 215. 380, 221. 388-229, 38 

DRTR232, 300, 229. 398,228, 300. 225.400, 223. 399, 232. 300. 23^.409.235.400.2^5.35 

DRTR232, 380.225. 300. 232. 380. 235, 480. 232, 480. 223,588 



* 



Suite de la page 6 



#* 



\£* 



3360 
3390 



5470 
3500 



I = F-DL >.l> * X ' 255 
XDRAW R ftt fl * I * ^.W 
XDRflW f. AT fl * I * 2.W 
IF PEEK ( - 1&2B6) < - 12 

7 THEM P30TD (140 
DRAM RflTA»/*^.W 
IF R - 15 THEN TT - TT * O. 

9iSQ - SO * .9 « 2.23iUU - U 

U * 1.08 
IP R . 44 THEN TT * IT - I. 

2:SO - SO * 1.2 • 2.25:UU - 

IJIJ * 1.14 
IF fl « « THEN TT - TT . 1. 

; : sd = sn * i.r • i.4iUu - u 



4290 
4310 
4340 



FOR K - fl TO A * X STEP 4 

DRAW RR AT K.J 

NEXT r 

NEXT J 

HPLOT A.J * 6 TO K,J * 6: HRLOT 

TO K.B * 1 

HCOLOR- i. 

FOR I » fl TO A * X 

HP>LOT 1,170 TO 1.170 - Yl 

NEXT I 

HCOLOR- 3 

RETURN 

REM DESSIN PIGNON 

HGR2 : HCOLOR- 3 
01 - I0:W1 = 6 

FOR I - 1 TO 1 1 : DRAW L ( I ) AT 
01, Ml 

01 - 01 * 6: NEXT I 
A - <280 - X) / 2 
B - 170 - V 

MPLOT A, 170 TO A * X , 1 70 

HPLOT A.17G - Yl TO A » X.l 



7400 DATA 22,17,19.17.20,21.1.32 

.34,25,30, 19,25.32, I7.2B.21 
7410 DATA 32,25,23.30.31,30,1,20 

,34,31,23.36 
7420 DATA 22, 1 7. 1 9, 1 7. 20, 21 . ! . 1 7 

,34.34.25,21.34,21 
7430 DATA 32,25,23,30,31.30.1.23 

, 17.37, 19.24,21 
74AO REM FONDATIONS 
7490 DUII) - (!L0 * LAP • 2 • SSI 

. (LO - SS) 
75ZO REM MUfl S/SOL 
7550 011(2) - ILO * LA) " 2 • VS 
73BO 0UI71 - 0U(2): REM CREPI 

7610 0U<2) • 0UI2) * (LO - 0.5) • 



i PRINT : UTAB 1": FRINT "MtlN 

TANT T.V.A."J:C - 39:V - TG • 
O. IBfc: GOSUB 82 10 

i FRINT : HTAB lOl FRIMt "HON 
TANT T.T.C'i :C - 39:7 - TG * 

TG • 0.1B6: GOSUB 8210 

i HTAB Ii VTAB 24: PRINT "VOU 

LEZ-V0U5 IMPR1MER C£ DEVIS^ 
"I: GET R» 

! IF Rt • "0" THEN GOTO 90OO 



VS 



(LO • 



O.B 



Yl 

4430 HPLOT TO A * X.B 

4460 HPLOT A,B TO A * X.l 
4490 HPLOT A. 170 TO A,B 

4520 HPLOT A * X , 1 70 TG I 

- Yl 

4330 MPLOT A.B TO A ♦ IX 



2) 



2i m i ,F) ■ 



■710 I 
-74" 

--.'-;>., 
380O 

;ti 10 

■ .... 

'::■... 



SOTO ■■'"" 

RETURN 

REM 

HGR2 

HCOLOR= 3 
□ 1 - [01 Ml • b 

FDR I = 1 TO II: DR 
01, Wl 

01-01 • 6: NEXT I 
A - (280 - XI / 2 
170 - • 



HRLOT TO A • X.B 
HPLOT A.B TO A * X.8 
HRLOT A. 170 TO A. Ii 
MPLOT A + X. 170 TO A 
- Yl 
SCALE- t; ROT- 



4&10 

4640 
4670 
4600 
4700 
4730 
6260 



6470 

6330 



HPLOT TO A * X.B 

HCOLOR- 6 

FOR I - A TO A * X 

MPLOT I. 170 TO I, 170 - yl 

NEXT I 

HCOLOR- 3 

RETURN 

END 

PEM •• LECTURE F [CHIEF* 

PRIX •• 
D* - CHfit (4) 

DIM Rft»!401 ,OU»<40) ,PR(40) 
FI« - "FICM1ER DEV1B" 

PRINT D»("OPEN"iFI* 

PRINT D»i"READ"iFl» 

INPUT NP 

FOR I - 1 ro NP 

input pftttI),OU*(I>,PR(I] 

f /E X T 1 

PRINT D»I-CLOS£"!FJ* 

RETURN 

REM DQNNEES 



7i70 HU(3) - LO • LA 

76BO DU(4) - 0U(4) * Lfl " PE 

7700 Out 4) - nu(4) - so 

7730 QU 17) - GU(7> ' OUU) •■ UU 

7760 0U(3I - TT < 0.4 « N0:OU!3l - 

rjU<3) • 0.041 REM LINTEAU 

X 
7/A3 011(6) - (LO • LA - •'.*> * "■ 

04 • 3 
■/ "I DU<8) ■ INT (LO / 0.31 
'/.'■', LI - (LA / 21.HM - LI • PE 
7780 0U<81 - SOR (LI 2 * HH * 

7-> • LD ■ 2 

/!(.■■ rfiKT : HOME 

7830 PRINT "DEVIS ETABLI POUR M. 

"INN* 
■ , PRINT ■ PftlWT "DEOIONAI ION" 

I : HTAB 1H: FRIMT "F .11.": : MTi 
24 1 PRINT '0UAM1 ."H ! "''''' "■' 
: PRINT "MONTANT* 

i i if I'D i 0Q9UB 62A0 

7910 KIR I ■■ 1 TO NP 

7940 PRINT LEFT! (PR* I [P, 16>l 

n/c V - PR([):C - 23s QOSUfi B210 

> OU(I):C " 30: GflSUH H'.'IO 

. C)IJ(I) • PR(1 - ! ''■■ GOSUB 





LEZ-V0U5 FA1RE UN AUTRE ESSA 


9700 


FOR I - 1 TO NP 




[? ": GET R» 


9703 


PRINT 82* • G«l 


81(37 


IF R« - "0" THEN GOTO 410 


9710 


V - OU(I):C - 9i GOSUB B21.0 


B190 
B2I0 

G240 


END 


9712 
9713 

9720 


PR»(I) - LEFT* (PR*(II,16) 
LZ - LEN (PR*(1 1 ! 
PRINT TAUI 1 1 ) JN« • B2* * 


XL - INT ( ABS (V) * 0,003) 




• SGN (V) 




D» , " " . 0U*( I) I TAB( 191 


B270 


XP - INT ( ( ABS <7 - XL) • 




IN* * 82* t- 0* ♦ " " * LETT* 




lOO) * 0.3) 




IPR«I I ) . 1 ) » Z* * RIGH1* (f 


B300 


A* » STR* UPP 




r-:*!I) ,LZ - 1) » 1*1 TAB* 301 


B330 


IF L£N (Al) - 1 THEN A« - 




tN« • B2» * 0«t 




A* f -0" 


9730 


V - PftdliC - IB: GOSUH B2I0 


B360 


11% - STR» (XL) * ", " * A« 






8390 


PRINT TAB! C - LEN lll*> * 


9733 


PRINT N* * B2« • (l»: 




1 ) : ZZIt 


9740 


v - PR(l) • oudiic - 29i SOBUB 


B420 


RETURN 




B210 


90OO 


REM ••■ IMPRIMANTE ••• 


9730 


PRINT " "IN* + 82* 


..r,,il 


HGR2 


■?760 


NEXT I 


9003 


FRINT 


9770 


PRINT Bl* * 0* 


9100 


Dl - CUR* <4>: PRINT D«"PR» 


9773 


PRINT M« 








PRINT TAB* 42) t "TOTAL MORS 


9110 


PRINT "" 




TAXES: "(IV ■ IGiC - 34l BO 1 


9120 


N» - CHR* (14) 




8210 


7 1 -■" 


0* - CHR* (13) 


97B3 


PRINT M* 




Z* - CHR* (261 


9790 


PRINT TAtM 421 1 "MONTANT T. 


9150 


M* - CHR* ( i -'-> 




V. A. : "1 : V - FO ■ "■ 16*1 1 


9160 


1 + - C>M* (121 


9793 

9BO0 


34i GOSUB 0210 
PRINT M* 
FRINT TAB I 4:M 1 -M0NTAN1 1 


9200 


-it— ————■■ 


9210 


B2» - "•" 




I.C. i "llV ■ IB • ". 1R'' • 


9500 


PRINT N» <■ " MI-CRaOUANT" 




rote ■'■ "M- sio 



,'vfj.-. 

BO "" 

B060 
8090 
B120 

hi V. 



u. iO 

M, . I*, • V 

PRINT 

NEXT I 

PRINT : MTAR 1": i F ini " ror 

■ ■'. ■■■ rAKI ■'HI ^ 39:V - T 

Oi BOflUB B210 



PRINT "RUE DE VERDUN- 
PRINT "24300 NONTRON-I BPC( 
L3>(0* • "L" • 1* • "F-" * /* 

»••■•* 0A» 
9330 i HINT M» * M* • M» • M» • M 



PRINT M» i 

, PRINl M» ■ "C" ■.'*•' Dl 
Vl-i 1-OftREr.F'llNI) All 1.1-n'l HI M'.i 

L" ( t i si. i i [• BON Dl ' 

n: - . ;■(. . "I ...J .i ."■ ■' 

. PRINl M* 

, PRINl I • 



P030 

7IIM 



r r* 

I HR* 



D*l I i 



MISSILE 



Une fois de plus "la guerre des etoiles" se rallume ; imagi- 

nez la situation : vous etes aux commandes dune navette 

spatialedont la mission est deproteger unestation orbita- 

leautourde la terre 

Soudain, dans le radar de la navette apparait un astronef 

ennemi qui se stabilise a 60 unites de distance de celle-ci. 

Cet engm sapprete a detruire la station orbitale avec ses 

missiles Heureusement (pour la station !). vous etes la et 

vous etes son seul moyen de defense ! 

Votre rote consiste done a rejoindre la base ennemie pour 




ladetuiretoutene\ 


'itant les missiles envo 


yesgenereuse- 


126 X>V 


288 TONE 7 


298 -F 


372 H(1S- 


454 STO 11 


ment par cette derniere 




127 XEO 3fc 


289 TONE 6 


291 RTN 


373 ATINE 


455 SF 87 






Eric MATHIAUD 


128 - 


218 TONE 5 


292«LBL 83 


374 AVIEN 


456 RTN 








129 11 


211 PSE 


293 -F • 


375 TONE 9 


457»LBL 32 


Mode demploi : 

Pour cela. prenez une t 


-IP41. dotez-la d'un module X-FUNCTIONS et 


138 XOV 


212 1 


294 RTN 


376 PSE 


458 " ?■ 


dun module TIME et entrez les quelques 527 pas de programme, puis 


131 - 


213 SI* 87 


295»LBL 82 


377 PSE 


459 ASTO IB 


affectez le label tPR a 1 


a touche + (division) Vou: 


j disposez alors du 


132 X<8? 


214«LBL 21 


296 "F • 


378 FIX 8 


469 DSE 11 


tableau de bord de votre navette. qui vous renseig 


nera sur revolution 








461 RTN 


de la situation Apres avoir lance le programme, vous declinerez votre 


133 8 


215 RCL 83 


297 RTN 


379 "H:" 


identite a la machine, cect dans le but "d'humanisei 


'" les rapports entre 


134 18 


216 RCL 86 


298«LBL 81 


388 ARCL 87 


462 RCL 95 


la 41 et vous Si vous ne I 


aites pas partie des habitues, la machine vous 


135 * 


217 - 


299 RTN 


381 -F-D:- 


463 STO 19 


le tera savoir. puis apres le traditionnei message d'encouragement, 




vous serez livres a vous-meme et a rennemi... 




136 "RISQUE : • 


218 E3 


386»L8L 26 


382 ARCL 84 


464 CF 87 


Au depart, vous disposez de 750 unites de carburant. Vous demarrez 


137 flRCL X 


219 / 


381 1 
392 - 


383 -F-C:- 


465 RTN 


de la station orbitale. vous avez done une distance nulle. Les missiles 
partent de la base ennemie et ils sont a une distance de 60 unites. II y a 


138 -P •/.- 


228 ST* 93 


384 ARCL 85 


466»LBL 18 


tou jours un seul missile I 


;n jeu Des que vous avez evite un missile, I'en- 


139 AVIEH 


221 FS? 97 


383 X=9? 


385 8 


467 -DESOLE ■ 


nemi en renvoie un nouveau et ainsi de suite. 

Chaque tour de jeu se deroule ainsi : apparaitra en premier, pendant un 


148 RCL 85 


222 GTO 89 


384 GTO 27 


386 XOF 


468 flRCL 91 

469 ARCL 92 


temps tres court, un nombre entre 1 et 7. qui represente le nombre de 


141 STO 18 


223 XEO 19 


395 "PC 


387 SF IND 12 


secondesdont vous disposez pour prendre votre decision, puis le mes- 


142»L8L 28 


224 .94 


396 RTN 


388 PROMPT 


478 AVIEH 


sage : -N< D:dd< N. 

N est un nombre entre 1 et 10. qui vous indique votre marge de manoeu- 


143 RCLSH 


225 KY? 


397«LBL 25 


389»L8L 38 


471 PSE 


vre. Achaque tour, vous pouvezavancerdeOaNoureculerdeOaN uni- 


144 E5 


226 XEQ 35 ' 


388 FS? 95 


399 -TU ES EN BAISSE- 


472 -PLUS DE CAR8URA' 


tes de distance. Dans ( 

appuyer sur CHS. 

od represente votre dist 


:e dernier cas, apres avoi 


- entre la distance. 


145 « 


227»LBL 89 


399 GTO 27 


391 AVIEN 


473 "HIT" 


ance a la station orbitale 




146 2 


228 FS? 87 


318 •):( BflOUN- 


392 TONE 9 


474 AVIEU 


Une fois la distance entree apparaitra votre facteur de risque, calcule 


147 / 


229 XEO 32 


311 AVIEN 


393 TONE 8 


475 PSE 


par I'ordinateur ; ensuite 


: vous passerez en mode 


controle-radar, qui 


148 INT 


238«LBL 22 


312 TONE 8 


394 -ENTR9INE TOP 


476 9 


vous indiquera quatre re 
- la distance du missile ; 


nseignements : 

a la station orbitale (precedee de M) 


149 ST- 85 


231 RCL 83 


313 TONE 8 


395 AVIEH 


477 STO 95 


- votre distance a la station orbitale (precedee de D) 


158 RCL 85 


232 INT 


314 TONE 8 


396 PSE 


478 -969- 


- votre reserve de carburant (precedee de C) 

- et en bas de rafficheur. un nombre entre et 4 1 


}ui vous indique le 


151 STO 18 


233 RCL 84 


315 TONE 4 


397 GTO 31 


479 ASTC 19 


nombre de protections dont vous disposez. 




152 RCL 94 


234 - 


316 TONE 3 


398»L8L 27 


488 CF 95 


Mise en place d'une protection : celle-ci, accessible en appuyant sur la 


153 X>8? 


235 9 


317 TONE 2 


399 -<:>P 1 OUF- 


481 RCL 93 


touche + (division) et construit autour de votre navette un champ de 
force sur lequel viendra se desintegrer le missile, elle vous coOtera 


154 GTO 15 


236 X>Y? 


318 TONE 1 


499 AVIEN 


482 STO 86 


150 unites de carburant. 






155 9 


237 GTO 23 


319 TONE 8 


481 TONE 7 


483 GTO 29 








156 STO 84 


238 •«:" 


328 TONE 8 


482 PSE 


484«LBL 28 








157«LBL 15 


239 ARCL 83 


321 RCL 85 


483 GTO 17 


485 CF 89 








158 RCL 84 


248 -F-- D:- 


322 187.5 


484»LBL 16 


486 -BRAVO - 




~m. AA 




159 61 


241 RCL 84 


323 / 


485 RCL 99 


487 ARCL 81 


1 


lO A-l 




168 X>Y' 


242 18 


324 RCL 84 


496 9821 


488 ARCL 82 


f 


At ^ 




161 GTO 13 


243 X>V 


325 3.75 


487 » 


489 AVIEU 


1 


% • 




162 - 


244 -F8- 


326 / 


488 .211327 


499 BEEP 








163 STO 84 


245 ARCL 84 


327 * 


489 * 


491 PSE 








164»LBL 13 


246 M-Cf 


328 RCL 12 


418 FRC 


492 -MISSION REUSSIE' 








165 RCL 85 


247 ARCL 18 


329 - 


411 STO 99 


493 AVIEU 


89:34 25.83 


42 FC?C 25 


84 SF 27 


166 X<8? 


248 TONE 9 


338 "NOTE DE ■ 


412 18 


494 TONE 9 


81«L8L "MISSILE" 


43 GTO 1 1 


85 STO 89 


167 GTO 18 


249 AVIEH 


331 flRCL 81 


413 « 


495 TONE 9 


82 -ERIC KflTHIIIUir 


44 X<8' 


86 ■-" 


168 FS? 98 


258»LBL 24 


332 flRCL 82 


414 INT 


496 PSE 


83 -JEU W MISSILE- 


45 GTO 11 


87 flRCL X 


169 GTO 88 


251 DSE 63 


333 AVIEN 


415 1 


497 -NOTE: 28/28- 


84 -POUR HP-41- 


46 GETREC 


88 -K D:- 


178 RCL 85 


252 GTO 22 


334 PSE 


416 * 


498 AVIEU 


85 CLRC 


47 AVIEH 


89 RCL 84 


171 158 


253 RCL 83 


335 FIX 1 


417 RTN 


499 PSE 


86 SIZE' 


48 PSE 


98 18 


172 / 


254 1 


336 CLA 


418«L8L 11 


599 "M:U-D:69-C:- 


87 13 


49 GETREC 


91 X>V? 


173 INT 


255 ♦ 


337 ARCL X 


419 -PRENOM NON HEN- 


591 ARCL 95 


88 X>Y' 


58 AVIEU 


92 -F8- 


174 CF 99 


256 INT 


338 -F/29- 


429 -FTIFIE- 


592 AVIEU 


89 PSIZE 


51 TOME 8 


93 flRCL 84 


175 CF 81 


257 STO 83 


339 AVIEH 


421 AVIEN 


593 PSE 


18 FIX 4 


52 TOME 9 


94 "F <■ 


176 CF 82 


258 GTO 17 


348 BEEP 


422 SF 96 


594 PSE 


11 CF 29 


53 PSE 


95 flRCL Z 


177 CF 83 


259»L8L 23 


341 PSE 


423 TONE 8 


595 -NOUVELLE MISSIO' 


12 TINE 


54»LBL 12 


96 8 


178 CF 84 


268 XOY 


342 FS?C 96 


424 PSE 


596 "HI" 


13 STO 83 


55 -80HNE CHANCE ■ 


97 SETSM 


179 SF IND X 


261 X=9? 


343 GTO 31 


425 GTO 12 


597 AVIEN 


14 E2 


56 ARCL 81 


98 CF 22 


188 X=9? 


262 GTO 25 


344 RCLPT 


426«L8L "PR- 


598 8 


15 » 


57 flRCL 82 


99 AVIEH 


181 TONE b 


263 "<:)■ 


345 INT 


427 CF 27 


589 STO 94 


16 FRC 


58 AVIEU 


188 RUNSH 


182»LBL 88 


264 FS? 95 


346 SEEKPT 


428 STOPSN 


518 XEQ 16 


17 STO 88 


59 SEEP 


I8HLBL 14 


183 XEO 16 


265 XEO 26 


347 GETREC 


429 159 


511 XEQ 16 


18 CLX 


68 68 


182 PSE 


184 I 


266 XEO IND X 


348 RDN 


438 ST- 85 


512 GTO 12 


19 X<>F 


61 STO 83 


183 FS? 22 


185 • 


267 -F- - 


349 flMJH 


431 RCL 85 


513«L8L 36 


28 DATE 


62 I 


184 XEO 33 


186 STO 86 


268 FC? 85 


358 X>Y? 


432 STO 18 


514 68 


21 an 


63 STO 87 


185 RCLSM 


187»LBL 29 


269 8 


351 GTO 38 


433 X<9? 


515 X=Y? 


22 ADATE 


64 758 


186 RCL 86 


188 RCL 83 


278 FS? 95 


352 DELREC 


434 GTO 18 


516 GTO 28 


23 FIX 8 


65 ST* 85 


187 X>V> 


189 RCL 84 


271 1 


353 -R=- 


435 SF 95 


51? RDN 


24 AVIEH 


66 RCL 85 


188 GTO 14 


198 X<=Y? 


272 ♦ 


354 ARCL Y 


436 1 


518 49 


25 PSE 


67 STO 18 


189 CLX 


191 GTO 21 


273 ARCL X 


355 -F - 


437 ST» 12 


519 X>Y? 


26 CLX 


68«L8L 17 


118«L8L 33 


192 68 


274 AVIEN 


356 FIX 4 


438 -PROTECTION - 


528 GTO 19 


27 -MSS II- 


69 CF 85 


111 STOPSH 


193 STO 83 


275 TONE IND X 


357 DATE 


439 ARCL 12 


521 68 


28 SF 25 


78 XEQ 18 


112 INT 


194 5 


276 GTO 24 


358 ADATE 


448 AVIEU 


522 RCL 94 


29 SEEKPTfi 


71 6 


113 STO Y 


195 CLA 


2774L8L 88 


359 INSREC 


441 PSE 


523 RTN 


38 -PRENON V 


72 « 


114 ABS 


196 ARCL 81 


278 -F 


368 -RECORD BATTU" 


442 GTO 28 


524«LBL 19 


31 AON 


73 2 


115 RCL 89 


197 ARCL 92 


279 RTN 


361 IlVII.u 


443«LBL 18 


525 RCL 94 


32 PROMPT 


74 ♦ 


116 XOV 


198«LBL 34 


288«LBL 87 


362 BEEP 


444 RCL 88 


526 9 


33 AOFF 


75 INT 


117 X>Y? 


199 AVIEU 


281 "F 


363 -TU T'ANELIORES- 


445 PI 


527 .END. ■ 


34 ASTO 81 


76 VIEH X 


118 ENTERt 


288 TONE t 


282 RTN 


364 AVIEH 


446 * 




35 fiSHF 


77 1 


119 CF 27 


281 DSE X 


283«LBL 96 


365 TONE 5 


447 5 




36 ASTO 82 


78 - 


128 RCL Z 


282 GTO 34 


284 "F 


366 PSE 


448 YtX 




37 CLA 


79 E4 


121 ST* 84 


283 -MISSILE ■ 


285 RTN 


367«LBL 31 


449 FRC 




38 fIRCL 81 


88 / 


122 Xt2 


284 flRCL 97 


286«LBL 85 


368 FIX 4 


458 STO 88 




39 ARCL 82 


8! STO 86 


123 ST- 85 


285 -F EVITE" 


287 -V 


369 "BRAN ■ 


451 RTN 




48 SF 25 


82 CLD 


124 RCL 83 


286 AVIEU 


288 RTN 


378 TIKE 


4S2»LBL 35 




41 POSFL 


83 XEQ 16 


125 RCL 84 


287 TONE 8 


289»L8L 84 


371 RCL 88 


453 XEQ 16 





DEDALE 



Trouvez la sortie le plus rapidement possible car 
toutes les 40 secondes, des murs changent de 
place... Aleatoirement ! 
Mode d'emploi dans le programme. 

Fabrice PARROUR 




SPECTRUM 



350 a ■ ■ 

■ 0«C Et 



• ■ 

- - 



: ■ ■ 



* - tes 

n o i a c M 

-10 o 



-.. f-c«» ,-, 



■ 

' ~ - I - * - - 



. ,'o rMCH 



1000 

«0O.' 

dope- 




'' FT ^ :'??!??•' Ll?C - I - '"' "'1 IOC* 

. I NT -. LOO • 1 00 

1 1 C IF 7 EC' u - Then OQ T] 1 OS 



teaa le*i -»-»-a-t 

1090 LCI • = INT 

t INT ■ ] IPC!' 



i I r it n - 

TO 9COP 



20 PC? '_E T » .60000 * ' 100 ♦INT 

I i *q-INT :^ IOO 1 ■ ICO 

SOIO IP PEEK i.,1 TmEU DO 



S8.20 LET 

sesa ir.' 

1 INT '1 - 
" ?OCP 



TO 205 



9 PRIT1T RT 1*.3. INK J.,"-'©*? 

Jr pivoief a aau cr,« " 

10 PRINT AT 19 . Si INK 5 i " - ' H ' P 
jr pivoitr a droit*" 

11 PC INT OT 21,7; INK 3, PRPER 
1, PLA5M 1 . "RTTENDER UN INSTRNT 

FLR5H 
19 POKE SJ«73.«i POKE i3674,fl: 
»OHC 2367S,ei 
15 PCM •»•***►»*»•*»«***** *»*4 
17 PCM »LR8VRINTHE RLERTOIRE** 

19 REM ♦ *»***-»•***»*»*»■»***•!»* 

19 POKE S3673,0. POKE 23074. ,0 
'- 23672, a 



30B0 LET i-ECCOOtdOeilNT '^.'lOO 

jj .q - INT iq-lOOi * IOO 

301O IF PEEK - -1 THEN GO TO 30T5 

/100> LET *.q- 

1 TMT ■-. 1 OP 1 * IOO 1 LPT f «1 : OO T 

4.000 LETT :, =60000* (100* INT (q/lC30 

1 1 .q-IMT <«(' IOOI *1©0 

ldl« IP PCCP. «<>1 THEN OO TO *B3 



B - 1 



- - T THEN P Z~ 1 - > T 

T 1 , b, 3 

LET t,.b*l L< . - • . 1 lC» «1*>*1- 

• 

■•:..- . - 

. t - - . . . . , ueT ; J . C J _ J ■ - - 

-J ad - 1 SO Tt 



»10O 

MEM FOR ■ ••. ' 

-I- 1 .<* . h we ■ t 1 

... 
c* 
i , »i«8 r-pR' > ! 

8 . - . - - ;. orb i u ■ 
... 

a . a*a ■■ p#n ■ ,■ ■ - n 
E BBI 



Lei' ? - 1 - ; 
■ 
9095 P GT 

Q 

-.;co plot 



O' -■- PLOT p.* 

PI OT • . - 

93 IC "l:" 



■ ■ 

Etfl, 
m-m -0-2 
i a = o plot d »o *a , ft *o * a 



e * • 



SO FOR 

_ " POR 



33 LET 



-i TO 11 

- TO 11 



4,020 LET q-g-j 

4000 LET y = INT |c 

( INT iq /IOC) *1O0? 
TO SO-- 



•« + 3 



L>->INT CRND4 
ir u >* THEN LET U - 
36 LET u-O 
4.0 POKE 600O0+ (100 
KB NEXT « 
NEXT 



/ioei l 
let r = 

PAPPOftT 



CO 



OO TO 37 



UBffl - 

POKE 



■SHI 

6000 



■t^ss-sssss-jS 1 * 

©ft POR 'J «0 TO 11 ' POKE 
00»y,l: POKE 68000*100»Y 

ke ioeootioe»v +11,5 nex 

67 FOR X -0 TO 12: POKE o«ww« 
,lr POKE O0000*ll«0+x , 1 : NEXT 
OO OO SUB 97S8 
99 LET q»101 : LET I -100 
03 BEEP .2, 10: BEEP 1 , 20 ; PR 



. ■ 



4.999 REM ■•*• 

4.990 REM .--- 

4.9*]. REM •UI5ION PI.SN-UIJION 3D« 

4992 REM •*••*•••*•**••*•••••*•• 

B 000 IT t 3-1 THEN LET T, »100 LET 
f»l- LET /»INT Cq/1001 - LET y .q 

-INT ffl/1081 tlOO GO TO 6000 
5010 IF T.,1 THEN LET 1.-10O: LET 
f--l. LET Jl.INT Iqz-lOOJ : LET V- 
q-lINT (cl/ieei *1»01 : OO TO O008 
B0 30 IT t --1O0 TM6N LET t*-lj LE 
T tm-X- LET ij»INT (q/1001 : LET y 

= q- 'INT iq/ldBI -1P01 GO Tp ©000 
SO30 xr t=100 THEN LET 1=1. LET 

f -1 . LET X -q- 1 INT (q/lOOj *1C01 . 
LET -rf-INT (<l/10O) . OO TO O0O0 
B3B0 STOP 

B100 IF I --1 TMCN LET 1.-1BB: LE 
T f»-l: LET X.INT Iq^lOOl LET y 

*q-INT (q/lC01+lOO: GO TO 8000 
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1 IF INKEYt--Y" THEN BEEP 

LET q-t *q : OO TO 900 
IF INKEV*.'^" THEN O 



E-120 IF r.-100 THEN LET 

fm-1 LET uoINT iq/JO0J LET .■ -. 

1-INT iq/lO0) 'lUB: OO TO O000 

5130 IF t.n-100 THEN LET t=l LET 
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300 FOR U-O TO 100 

309 CLS 

310 IF U/3" INT (U/3) TMCN POK 
^0000*100* I INT CRNO*7 + 2) ) +INT 
ND*7*2) ,0: POKE 60000 + 100 • I INT 
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600O0* (1O04INT (O/1O0) ) *0-INT 
^100) .188 ,0 
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9 . LET a 1 "31 : LET C "0 ■ LET 
LET Cl=ai 

5 CLS i PRINT RT O ,23, ■".' = ■• 
q/lOOl , RT O.O; "X»"J q- t INT 

> *100> 

6 PLOT 39,0 DRHU 0,179 
PLOT 216,0' OBflU 0,173 
LET o-URL C» 
LET ol=URL a* 
LET oSs'JflL b« 
IF PEEK O-l THEN PLOT B» 

ORRU -PR.O: PLOT 0*6.Hl*G 
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96S8 RETURN 
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LABYR 



Le principe de base est le suivant : un labyrinthe 
16 x 16 est stocke en debut de programme sous 
forme de donnees numeriques. Le lybyrinthe 
16 x 16estalors reproduit a I'infini graceasacom- 
patibilite des entrees de droite avec les sorties de 
gauche et les entrees du bas avec les sorties du 
haut. 

Au depart, vous vous trouvez dans le labyrinthe 
reference - : 

Vous devezvous rend re dans I e labyrinthe 1 - 1. Le 
choix est arbitraire il pourra et re change a volonte. 
Le plan du labyrinthe 16 x 16 peut etre demande a 
tout moment en appuyant sur (H)elp. On vous indi- 
que alors I'endroit ou vous vous trouvez (un point 
clignotant) avec la reference du labyrinthe ou vous 
etes et vous indique aussi ou vous devez aller 
(point clignotant oppose avec le precedent) avec 
les references propres du labyrinthe. La piece ou 
vous devez aller est signalee par un cercle au 
centre de I'ecran lorsqu'elle se trouve en face de 
vous et que vous etes dans I e labyrinthe 16 x I6de 
bonne reference. 

Frederic BENOIST 

Mode d'emploi. 

II est impossible de changer de labyrinthe : le codage a ete 

etfectue de cette facon : sous forme binaire : 

Un mur ; 1 une porte : 

La lecture a ete faite en commencant par les lignes ; de data A 

gauche en partant du bas (sur I'ecran). Le nombre binaire 

obtenu est stocke sous forme dficimale dans des "DATA". 

Ensuite les colonnes de haut en bas en partant de la gauche. 



X-07 



ERRATUM AU NUMERO 30 
STARWAR SUR CANON X-07 

Dans le paragraphe de presenta- 
tion, il faut lire : 
INIT51. "RECORD", 50 
PRINTS 1.0. "NOW" 
de plus, il faut reserver 80 octets 
dans la Ram fichier. 
Enfin la ligne 6 manque : 
6 IN1TJ1. "RECORD". 50 : 
INPUTS 1, RE. NRS : IF LEN 
(NRS)>7 THEN NR$= LEFTS 
(NR$. 7) 
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DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous I 

Nous avons selectionne pour vous les meilleurs logiciels nctuellcmont dlsponlbles en France. Nous ne 
pretentions pas que celte llste est complete et definitive at II est evident que nous y rafouterons regu- 
llerement des programmes au tur et a mesure que nous les testerons. Pourtant, vous chercherez en 
vain certains programmes qui jouissent d'une bonne reputation et qui se vendent surtout grace a to 
publiclte et aux consetls des vendeurs qui ne peuvent pus connaitre tous les logiciels dlsponlbles. 
Nous avons classe a part les logiciels educatlts et, par snuci d'honnetefe, nos propres prodults : les 
Hebdogiclel Software. 

Lea prlx sont. nous I'esperons, les mellleurs du marche surtout pour les abonnes - anclens et nouveaux 
- qui benetlctent en plus d'une remise do 10 %. $1 vous etos nombreux a nous sulvre dans cetie expe- 
rience nous pourrons rapldement arriver a talre bafsser (es tarlls des toumtsseurs pour attelndre 
I'objectll que nous nous sommes fixe : ramener les prlx a une plus Juste valeur ! 

SOFT- PARADE® 
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LOGO : ca progresse a grand pas... de tortue, evidemment ! 
Logophiles, ou etes-vous ? Les enfants utilisent la tortue pourtant, 
non ? par P CORNEC. 

• ELMO INVISIBLE, ou un texte qui s'efface. Un programme a lire 
(et a taper) rapidement par R WUCHNER et E DONNETTE. 

• QA BALANCE TERRIBLE sur T07, avec une simulation de 
la balance de ROBERVAL. D. DELAMARRE. 




RESTONS SIMPLES ! 
Cette page educative etanl 
reservee aux enseignants, 
lequipe de Redaction ne 
portera aucun jugement de 
valeur quant a la qualite 
pedagogique des program- 
mes ou articles publies Les 
critiques emanant d'ensei- 
gnants seront toujours les 
bienvenues : elles seront 
publiees et transmises aux 
auteurs concernes. 

P. GLAJEAN 
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LOGO : Une tortue qui fait son chemin ! 



Messieurs. 

En reponse a votre gentiHe "pro- 
vocation- dans HEBOOGlCIEL 
numero 30. je prends mon traite- 
ment de texle pour vous parlerde 
I'experience que je vis actuelle- 
ment en ecole primaire 
II s'agit d'une experience en LO- 
GO menee sur I'ensemble de 
I'ecole. Les eleves (du CP au CM) 
beneficient d'une demi-heure a 
une heure d'informatique par se- 
maine. 

Nous disposons de 2 APPLE He et 
de 3 Tl 99/4A dont un est equipe 
en extension pour LOGO. 
En esperant que mon experience 
retiendra votre attention, veurllez 
agreer. Messieurs mes saluta- 
tions. 

Paul CORNEC 

PS. : Bravo et merci pour les pro- 
grammes educatifs de D. Amrou- 
che. R. Didi et J. Sahal pour Tl 99. 
J'avais deja apprecie leurs ex- 
ploits dans le tome 3 de vos edi- 
tions pourTexas Instruments. Voi- 
la du travail clair, precis et evolu- 
trf! 



Non. LOGO n'est pas mod ! 160 
enfants de l'6cole primaire ou je 
travaille le rencontrent chaque 
semaine. Je devrais d'ailleurs dire 
"la" car, pour le moment ils fre- 
quentent la TORTUE qui n'est 



qu'un des micro-mondes LOGO. 
Une des explications au mutisme 
des "logophiles" vient peut-gtre 
que cette "douce manie" touche 
encore peu de personnes. En et- 
fet. les bons langages LOGO, qui 
dotventetredanslalanguemater- 
nelle des entants qui les utilisent, 
tournent sur APPLE ou Tl 99/4A 
avec extension memoire. Ce ne 
sont pas toutes les ecoles qui 
peuvent se I'offrir ! 
La sortie prochaine d'une exten- 
sion 32 Kvalable, pour le Tl 99, de- 
vrait agrandir le cercle des amou- 
rejx de LOGO. 

Depuis le mois de Janvier, les en- 
fants du primaire (du CP au CM) 
ont done I'occasion de travailler 
en LOGO. 

Les premieres heures ont ete des 
moments de tatonnement. II fal- 
lait apprivoiser la TORTUE. ce pe- 
tit objet. en forme de triangle, que 
Ton peut deplacer a sa guise sur 
I'ecran pourlui faire suivre un che- 
min bien defini. 

La premiere grande decouverte 
faite grace a la tortue a ete la 
notion de PROGRAMMATION. 
Quand on disait "MAISON" a la 
tortue. elle repondait "AP- 
PRENDS-MOIMAISON".Et les en- 
fants finissaient par dire : "Si je 
veux qu'elle fasse "AUTO" il faut 
que je lui apprenne "AUTO". Ainsi, 
sans grand discours etait demys- 
tifie Tordinateur-qui-sait-tout" ! 



Premiers apprentissages : les or- 
dres AVANCE, RECULE, DROITE. 
GAUCHE suivi du nombre de PAS 
ou de TANGLE de rotation. Pen- 
dant un certain nombre de sean- 
ces, chaque groupe d'enfants (ils 
travaillaient par quatre au debut 
sur un mSme projet) a essaye de 
realiser son dessin. Souvent une 
maison, un bateau, une voiture, 
des formes geometriques... 
Les plus jeunes enfants travaillent 
avec un langage special ou les 
touches sont pre-programmees. 
Par exemple en tapant la lettre A 
ils font avancerla tortue de 10 pas. 
En tapant D elte tourne de 30 de- 
gres a droite... 

Ainsi ils peuvent tres rapidement 
aboutir a des realisations finies. 
Passe ce stade de I'apprentissa- 
ge. et face aux questions des dif- 
ferents groupes, il m'a semble ne- 
cessaire de donner aux enfants 
des OUTILS pour progresserdans 
le micro-monde de la TORTUE et 
endecouvrirlesenormespossibi- 
lites. 

Ainsi, chaque semaine desor- 
mais, par groupe de 2. ils com- 
mencent par decouvrir un nou- 
veau PRIMITIF (on appelle ainsi 
les ordres que la tortue com- 
prend) et ils I'experimentent par 
un exercice systrimatique. (cf. 
croquis). 

On a decouvert successivement 
les possibilites de LEVE PLUME. 



POSE PLUME. GOMME, ENCRE. 
puis le primitif REPETE qui econo- 
mise bien des lignes de program- 
me ! Bientot ce sera CAP (tene- 
ment pratique quand on perd le 
nord !) et les notions d'angle de 
rotation deja decouvertes empiri- 
quement par !es enfants. Pour 
I'instant, ils travaillent surtout 
avec des angles de 90 degres. 
Ensuite. ils ont du temps pour 
avancer les projetsqu'ils ont com- 
mences et que Ton garde sur dis- 
quettes apres chaque seance. 
Les enfants ont vitecompris la ne- 
cessity de decomposer leur pro- 
jet global en sous-procedures. Un 
projet "BATEAU", par exemple. 
prendra 2 ou 3 seances. Plusieurs 
procedures seront necessairesa 
sa realisation : COOUE. MAT 
VOILE. DRAPEAU... Cette pro- 
grammation tres stnjcturee per- 
met de s'attacher a chaque sean- 
ce a la mise en ceuvre d'une toute 
petite partie du projet. 
Uinteractivite des groupes est 
aussi tres importante. 
Les reussites sont saluees par 
des cris de joie... que Ton s'em- 
presse de faire partager aux au- 
tres !... Les nouveaux primitifs. 
decouverts grace aux tatonne- 
ments des enfants. facilitent le 
travail et enrichissent ['imagina- 
tion. 

En resume, LOGO developpe 
chez les enfants I'ordre, la metho- 



de.la rigueur, 1'imaginationetl'es- 
prit d'initiative. Tous les langages 
informatiques !e font, mais celui- 
ci a I'avantage d'etre adapte aux 
enfants. 

Le "debuggage". la recherche des 
erreurs en programmation. est 
une des operations les plus for- 
matneesde LOGO. 
En mode PILOTAGE. I'ordinateur 
apporte une aide efficace a Ten- 
lant. Si celui-cise trompe dans les 
ordres qu'il donne. la machine le 
lui dit tout simplement. en lui ex- 
pliquant ou se situe I'erreur : "IL 
MANQUE QUELQUE CHOSE 
APRES AVANCE" ou "QUE DOIS- 
JE FAIRE AVEC 90 ?'. . On est loin 
des "syntax error" du basic ! 
En mode PROCEDURE, e'est-a- 
dire lorsqu'on fait tourner le pro- 
gramme, les enfants de CM utili- 
sent beaucoup le primitif TRACE 
(sur ED1-LOGO) qui affiche cha- 
que ligne de la procedure avant 
de I'executer. L'erreur saute alors 
aux yeux. il ne resle plus qu'a la 
corriger... 

D'autres micro-ondes existent en 
LOGO : les nombres, les listes, la 
musique. et surtout les lutins qui a 
eux seuls ouvrent les portes a 
d'autres activity educatives : 
creation de formes, spaciatisa- 
tion, animation... Mais ceci est 
une autre histoire ! D'autres no- 
tions fondamentales (les parame- 
tres, la recursivite...) seront de- 



couvertes avec la tortue. mm? 1 
ny a pas lieu de bnjler les elapes ! 
Cette expenence m'a permis de 
me rendre compte d'une maniere 
tres concrete de I'lmportance 
d'une ann§e dans la matunte et la 
comprehension d'un enfant 11 me 
semble que e'est seulement a 
partir du CM qu'il peut utiliser les 
primitifs du LOGO. Tous les exer- 
cices avec touches pre-program- 
mees faits dans les classes prece- 
dentes sont importants pour de- 
velopper la lateralisation (ils sont 
bien loin de mart riser la gauche et 
la droite). les deplacements. les 
symelnes. les rotations, les ap- 
proximations qui preparent les 
realisations futures. 
Dans toutes ces activites, la pre- 
sence de I'enseignant est irrem- 
placable. Pas tenement en tant 
que transmetteur d'un savoir. 
mais plutot pour etre attentil aux 
differents groupes et leur permet- 
tre d'aller le plus loin possible 
dans leurs projets. 

Paul CORNEC 

Instituteur 

Paris XXeme 



UN TEXTE QUI S'EFFACE 



Pour continuer notre serie sur 
1'entrainement a la lecture, 
nous vous presentons un pro- 
gramme (toujours sur T07) 
qui va permettre de travailler 
avec un texte qui s'efface. 
Les objectifs d'un tel exer- 
cice sont de favoriser une 
lecture en evitant les retours 
en arriere (souvent inutiles, 
ils ralentissent la lecture), 
d'entrainer a I'anticipation et 
a la prise d'indice tout en gar- 
dant un rythme. 
Fideles a notre principe, le 
programme de cette semaine 
pourra etre modifie afin de 
varier le texte de base et bien 
evidemment les questions 
(voir plus loin, comment 
changer les DATA), pour le 
reste. le deroulement est le 
suivant : 

1 - Introduce son nom et son 
niveau (de 1 a 10) 

2 - Premiere lecture 

3 - Appreciation de la 
vitesse par I'enfant 

4 - Question de controle (1 
seule) 

5 - Deuxieme lecture 
6-4 nouvelles questions 

7 - Possibility optionnelle de 
revoir le texte a loisir. 
Comme pour notre premier 
programme, un fichier tem- 
poraire est conserve, pou- 
vant restituer pour chaque 
enfant. 

Le niveau d'entree, le nombre 
de bonnes reponses, le 
niveau de sortie, pour obtenlr 
l'edition des resultats, taper a 
la demande du nom. 
Pour arrfiter le programme. 
taper $$ a la place du nom. 
Comment modifier les DATA ? 
Taper ce programme sera 
tres interessant si vous pou- 
vez changer le texte. e'est 
pourquoi cette operation est 
facilitee par la mlse en DATA 
de celui-ci. 

Vous trouvez les DATA a partir 
de la ligne 5000. 
En 5020 indiquez le nombre 
prevu de lignes de votre texte 
(y compris les lignes blan- 



ches). Un decalage provo- 
querait une erreur... comptez 
bien. 

Ensuite entrez chaque ligne 
entre quillements et surtout 
n'oubliez pas le signe a la fin. 
il sert de repere et palie a 
I'impression de la fonction 
LEN du T07 avec les minuscu- 
les accentuees. 
Une ligne peut §tre de lon- 
gueur quelconque, le pro- 
gramme gere l'edition par 
page de 21 lignes. 
A la suite du texte tapez. tou- 
jours en DATA, cinq questions 
de comprehension, avec la 
reponse juste sous la forme : 



DATE "question ?". "reponse 
juste". 

Utilisez de preference des 
"Vrai ou Faux" ou des ques- 
tions limitees. 

Votre programme sera pret a 
tourner et vous pourrez aussi 
le sauver pour conserver 
votre texte. 

Ce programme est aussi dis- 
ponible sur GOUP1L 2. Pour 
duplication envoyez dis- 
quette et enveloppe retour au 
journal qui transmettra. 

F. DONNETTE 
et Ph. WUCHNER 



ie PErl -— Ltcturt rapia« J un t«*t* — 

29 PEH o> ui s-tftt'.t ... --- 

30 bin EI'20>.P'29,£' 
58 E-9 

66 CLSiSCPEEN 3,c,« 

70 ATTRB 0.i:LOC<-TE 19. SsPPIHT'BONJOUP ' 

89 ATTRB 0.0iLOCftTE 2, 6:PPINT'0u«l «it t 

or. no* *) 

93 COLOR 1 

30 IMPUT A« 

100 IF ftl--U- THEN -1006 

110 If ft»--«»- TMEH 3008 

120 E*tE>«<lt!C0l.OP 

139 LOCATE 2,9!PPIMT'Et ton ni</«>u Si 1 

» 10*JiCOLOP 1 

M8 IMPUT P'E.0'>COLOR 

159 IF ABS(9.9-R<C»e>»4.9 THEK LOCATE 2 
,?:PRINT SPCf49>i8EEPiC0TO 130 

160 PRINTJPPIMTlPPIMT 

178 PPIHT-Un te*t« 'j» «tr« •'dent ...' 
1S9 PPINT'II ■>* f'«rr*c«r *u tvr t( « >« 



1?9 PftIHT*Llf-l« nm 



r»ttr»p*r 



,-v.li 


G0SUB 6000 


SCREEN 1,4 


5 




?l« 


CLStLOCATE 


19, 19!PRIM 


•PPEKIEPE 


LECT 


UR| 


...■ICOSUB 


6900 






,■■ - '1 


TI-3«<19-P. E.Q i i 






?tfl 


C0SUB 2990 








;-4m 


fitft — f 




Ucturt - 




SW1B 


SCPEEK f 6 


1 






. ■■■:.!< 


LOCATE 18,5JPPIHT"0 U « 


P*nj«*-t'j 


a< 1 




t«fl« 7" 








279 


PRINTSPPIK 


"l . c« va 


bi«n"iPRINT-2 


. ca u» juitt" 


PRIKT-3 . 


■ v* trop 


V] l« 



280 PKIKTi IKPUT-l , 2 ou 3 'JV 

265 IFCV«1 OR V-2 OR V-3--0 TMEN 290 

290 FOR T-l TO 509IHEXT TiCLS 

399 READ At,Rl 

310 LOCATE I3.7:PPINT-Pr«»i«r« qutftion 



320 PRlHTJPRIMTlPPINT At 

339 PRINT: IKPUT-T* rtponst "JRE* 

340 IF fif = RE» THEN COLOR I ■ 4: PR I NT : P» I NT 
■TRES BIEN.C'EST JUSTE":R<E, 1 )-R(E, I >*I 
ELSE COLOR 1,3:PRINT:PRINT-N0N,L» r«pons 
e «tai t r *(R| 

330 IF V*l AMD P»=PEI THEN TI=TI«B.6 
360 IF V-3 AND R«c>REI THEN TI-TI41.2 
370 IF V-2 AND R«-PE* THEN TI*TI»0.^ 
390 IF V-2 AND PI'/PEI THEN TI»TI«1.1 
399 COLOR 9,6:C0SUE 68e0:;CPEEN 1,4,5 
499 CLSiLOCATE 10. 10:PPINTDEUXIErlE LECT 
UPE . . .":C0SU6 6009 
419 RESTOREiREflD PHiCOSUB 2999 

429 REH — • dcuxitt: leeturt ttromec - 
425 FOR T-l TO 300tNEXT T 

430 SCREEN 0,6,1 
449 READ A*, A* 
459 FOR 1-2 TO 5 

469 LOCATE 1,3:C0L0R 4. 3:PRINT"0UESTI0N 
N »-;STR*(I>:C0LOP 0,6 

470 PRINT:PPINT:PPINT 

499 READ Af,P$:PPINT AI 

490 PRINT:INPUT*T a reponse "JREI 

500 IF R»-RE* THEN COLOR 1,4:PP1NT:PRINT 
•TRES BIEN,C'EST JU3TE~:P' E. I '«P(E. I )♦] 
ELSE COLOR l,3:PPINT:PRINT"N0N.La r« P ons 
* <t*it i -;R* 

519 COLOR 0,6:CO;UB 6P89IC0L0R 0,6:CL3:N 

EXT 1 

320 SCREEN 0,6,5 

530 LOCATE 9,10:PPIMT"TP.£$ BIEN "sEKE- 

340 PRINT -TU AS TEPMINE ..." 

330 PRINTiPRINT-V«u..-tu rfoxr l« t« .. tt 



H«[ -I 



7(0/1 

560 AJ-INKEVI! IF 

<>-N-> THEN 568 

379 PRINT *. .."iH* 

589 IF A*--N- THEN 620 

599 SCREEN 9. 3.4! C L i: PE'iTOPE.'PEAD Ph 

690 FOR 1-1 TO PHiPEAC »i:PPIMT ■ ";LEFT 

*<A*,INSTR<AI, "•"■-] .:nE::" ] 

605 PRINTiPRINT 

610 C0SU9 6000 

629 CLS:SCREEN 0,7.1 

630 LOCATE 0, 1 01 PR I NT "Tu tt «r,(r« »U nlv 
*au i - i:COL0P I.2:PRINT f ■ 1 . 9 :■ iCOLOR 0,7 

649 PPINT:PPIMT-T U *J IrOWVt "StCOLOP 1, 

2lPSIKTR<tM)HCOL0R >t. ": ^RINT * r4f>ons«s 
»ur 3" 

650 R<E,2.--I0-INT. M 5 ■ 

655 IF R<e*I»3 «tNC P'E.2- 10 THEN P-E.2 

)-P(E.2>»l 

660 PPINTiPPINT'To'-. niveau at tortia «at 

:-t (COLOR ItSlPRlNT P E,2 
670 ATTP8 B#U COLOR 4,3iL0CATE 5,I9:PPIN 
T'AU REVOIR «t -. BIENTOT '.." 
6B0 ATTPB O.OiCOSUE 6000 
699 C-E*HC0T0 60 
900 END 
2000 pen --- afficha *' «r«ic« --- 

2003 LOCmTE O.O.OtPESTOPEiPEMt' PH 
2010 CLSiSCREEN 0,3.4 

2013 TOP J-0 TO INT.PH il ■ 

2016 PPINTCHPI'39'S 

2017 NP-PH-J»2l: IF I 
2020 FOR I»l TO NP 

2030 rea:> mcppint- 



2040 NEXT I 

2045 PESTORE:PEAD PH 

2046 FOR 1-1 TO 21»JiREAD A: 
2030 FOR T«i TO TI«i0iNE;:T 
2055 PRINT CMPf'30'i 



2] 1HEH NP-21 



,IMTR(AI, 



2060 FOR 1-1 TO NP 

2063 PEAC< At 

2070 C-I 

2080 Bt-m&ftMl.C. 1 ■ 

2083 IF B*«-»" THEN 2100 

2090 PRINT ■ -::F0P T-I TO TtMCXl '■■'■" 

*I»(B*-CHRf'22'>4-2iC0T0 2090 

2100 PRINT" -:NEXT I 

2103 FOR T-ITO 206!NE>:T TsNEXT J 

2110 RETURN 

3000 PEn --- EDIT PESOLTATS 

3010 SCREEN 0.3.4ICLS 

3020 PRINT" N0H " i TAB' 19 >! -fii"ENTP "! 

TAB(27);*80N.REP*lTASi35'J"n30RT- 

3023 CONSOLE 2 

3030 FOP 1-0 TO E-l 

3040 COLOR 4, 6i PRINT LEFTI- E«' i . 1 ~ ■: 

3050 PRINT TAB'ien:C0L0P 3.41PPINT P(I. 

B)l 

3060 PRINT TAB'27>MC0L0R 0.2:PPINT P<I, 

i ■; 

3970 PRINT TAe'.33>i:C0L0P l,7:PPINT P'l. 

2) 

3090 NEXT I 

3990 PRINTsCOSUB 6CG0:CONS0LE OiCOTO 60 

4000 PEN FINAL 

4910 SCREEN 3,0.9ICLS 

4029 ATTRB U I (LOCATE 3, lOiPPINfAli REVO 

IP .. .*:ATTRB 9,0!END 

5006 PEN — — Tapai ic i uotra t««t« — 

5010 REN lar DATA - nb da li«n«f 

5029 DATA 19 

3923 DATA'D'ou 'Jiant 1« ■)«! 7a-."«- 

5930 OATA "Dai colomaa d'abaillai aauua 

9tfB* 

3049 OATA 'bitimnl taura propras rucha 

3950 DATA "laa autraa vlvant dan* das r-u 

3060 DATA "boif tonatrulta* axprai pour 

alias. a- 

5070 DATA 'En achan«a I'apicultaur racol 



5990 DATA *pau da laur -itl aaii laur 

lillMl- 
5990 DATA 'aiiaz pour ta nourrir ami: 



rn 



it* .a- 



I CI 

5100 DATA 

5110 DATA -a- 

5120 DATA 'Ouand it racolta la ■ial.a" 

5130 DATA 'L'apicul taur riaaua da >a fai 

3140 DATA 'par lai aba i I laa, aufii porta- 
t-11 una* 

3150 DATA "»rand chapaau avae un «tnu« 
at daa*' 

5160 DATA "aants tra» a»ai« .*' 

5179 OATA *a-,-a-.*par Sarah ALLENa* 

5180 DATA'Toutai lax abeilla* conatruiia 
nt laur ruchai <V.F ou M8P)",F 

5199 DATA'L'apitul taur na sa prolafla pa* 

daa aballlaa <V,F ou NSP>",F 
5299 DATA'Laa aballla* tonntnunt bun 
I'apicultaur ?<V,F ou NSP>',NSP 
5219 DATA'L'aoicul taur na prand Pai tout 

la »!«1 <V,F ou NSP-'.V 
3220 DATA 'Las abaillas sa nourisatnt du 

hia) <V,F ou NSP>*.V 
6990 REN --- 5ICNAL DEPART — 
6010 LOCATE 20.23iPRINT*Tapa sur *MC010 
P 0. 3IPRINT- ENTREE " 
6015 FOR T-l TO 300INEXT T 
6020 A»-INKEV1HF AIOCHRK13) THEN 6029 

ELSE RETURN ■ 



BALANCE 

Le logtciel est compose de 2 
programmes "BALANCE" el 
"JEU" : 

- Le premier programme 
"BALANCE" contient le gra- 
ph ismedela balance ROBER- 
VAL et de la boite de masses 
marquees avec les explica- 
tions. 

- Le deuxieme programme 
"JEU* est le jeu proprement 
1.1 it L'ordinateur choisi une 
masse comprise entre 1 et 
1000 g. On doit retrouver 
cette masse en manipulant 
une balance Roberval. A la fin 
de la manipulation, l'ordina- 
teur exploits toutes les 
erreurs possibles : 

- erreur de calcul. 

- erreur de manipulation, 

- manipulations inutiles. 

Ce logiciel a du etre s6pare 
en deux parties pour pouvoir 
etre utilise sur T07 sans 
extension et la deuxieme par- 
tie ne contient pas de REM 
pour cette meme raison. 
Ce programme est destine a 
des enfants de classe pri- 
maire, de 6 e et meme de 5 de 
college. II faut faire intervenir 
la notion d'encadrement 
("plus lourd" ou "moins 
lourd*), le calcul mental 
(somme des masses mar- 
quees) et la reflexion 
(nombre de coups minimum). 
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.... : . 

LOCATE l.£tl 
lit 

■ ,4IP[ [N1 

; . ■■■ 

■ ro« !■« " 

■ LOCATE l.TtPRINT - I 

■ <. -. ■ 

■ : B ■■-.:■ : 

>.4*PRIN1 
tr tasstj ■•< 



: ■ ■ 

. . i . r ]■ 



ATE 1. JtPRINT ii 


. ■ . 


«t le tr I'jon op ■ i ij-: 




1*0 ro 480 : r £ ; . : 


IE ' : - ._■ 


■ rE 2.2ipf :■.■ . .. 


-:■ .. 


. i derntei i 




"LOCATE .8J( ■ - 


:nt 


.■ IU1 . :. ..:■.::..-■■ 




LOCATE 2,4»PRIMT 


. ....... H 






. 0! . 146 - li'.. :-:■: 


■ I 


410 fop : = ■:■ ~: SBfl 




426 LOCATE B,2iFRINT S . 





430 LOCATE 



oiPRIHT ; :. i:? , .,._ [' 
!0:PRINT - 5 o* u: * dans 1. 



440 LOCATE ' 

<*re bleu" 

-*» eo :■ £55. ncj ■-■ e _ 5. :-■:■ , •* 

460 rOR 1 = TO 506 STEP.llNEXT ;: _ : 
478 LOCATE 5. 6: PRINT "As-tu comi is<OU] 

■i. :; ■: 

430 INPUT ft 

459 IF Pls-NON" THEM 270 

300 IF P«="0Uf THEN 520 

310 GOTO 476 

528 CLS 

525 ATTRB8, HLOCATE 12, 6i PRiNT"Pf.T I ENCE 



• 


DELAMARE MH1EL 


■ 




THOMSON T07 




« 


S«NS EXTENSION 




• 


LE 20VB8'83 





' *•* RECHERCHE EfU 2* poQGPcMHE •♦« 
I RUN "" 
: ' f *• BALANCE E0U1LIBREE A VIDE •* 

■0 LINE<I5,$3>-(20,78>,e 

LINE-'140.78>,9: L I NE-< 143, 65 - . 6 
LINE<173»65>-(I88,78),8«LINE-<38e>7 

e:LINE-<365,65>,0 

LINEU69,78)-'. 1 69. 38 >, 5: LINE < 166.25 

160,26), 1 

9 RETURN 



....-.-■ 
. EMS) 1 19. 172 - 

I m i too, . -v 110.19: 
3840 PEH7J J3, : -'. - ?: 
3050 RE" 

ENDl ...■--■-..- 
:5?5 penii ■ 'z- :"- - 5:. 133 
3510 ";.! 42,177 - 46.103 
75:5 PEN3J 25.176 - go. | _ 
J520 RETURN 

4886 LINE<l0.S0>-'28.9 
400a LINE- 148,?e>.0iLlHE- ' ■ 
4018 LINE 170.40 - 188.50 . • • 
401 IE .flu IKE- ": . - . 

4026 LINE' 168,78 - 140,35 ,2 
4825 LINE' 168.20 - .-■:. . 

4>".j =■:>■ r. r .,..-.; - .. ;..:-, :- . : 

4035 PETURn 

4306 H*N*ttBEEP«A0«lM ' ' 

4505 N*N*HBEEPjai*i:bi=0i ::-::.jc c 

4518 N-N*UfiEEPBB2=i:B2*0:GOT0; 

4515 K*H*irBE£PtA3*U83*0:GOTO! : c 

4520 N*N+ItBEEP:A4-l 184*01 :,:-:5920 

4525 H*N*lcBEEPiA3-i>S5*0iGOTO3B25 

457? \ = n-t:£.EE=:--: = ::t^ = .;: :;-:5-?7-? 

4535 N»N*ltBEEPiA7-l 187*01 30T05835 

-540 N*N+l!BEEPsA8*IiB«*0:COTO: I4< 

■=545 N = N+ i: BEEP: h? = :sE ? = ij: £07:5045 

4550 N"N4.1SBEEP1AI9»1 1818*81 :OT058S< 

4555 K-N+tiBEET:All*i:811-e«COT0 5655 

4586 ATTRB8,tiC0LOR4,e>LQCATE8,I!P«l II 

:-.ITPB->. o: 'tOL I-'.'.-.: ".'; "- :."■■>"■:' -i >;-• 

Al*108ttfl2+63>*58»A4+20lA5*10« R6*A7 *5I 

fS*2«<A9*«10>*w!l *2 C0T( 4600,4620,464 

3 

4550 G0T0159 

4606 1=8 

4665 G0SUB2689 
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?025 locate u. : ■ 




pt 
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20 CLSiSCPEEH 0.2.S 

38 B0X<8,9>-<29/ 15 ' ■*",0,3 

48 LOCATE Il,12spRINT -»«Bor« de lasses* 

58 FOR 1*8 TO 150 STEP. 1 -NEXT I: CLS 

60 SCREEN 8,7.2 

78 Cuius I860 

80 LOCATE 7.2:ATTR= 6.': PRINT "Votci wn 

s Balance Rob«rv»l* 

58 LOCATE 12.11: PPiKT *s»ui 1 i bree i vid 

168 FOP 1=8 TO 360 STEP.l:N£XT ::;.= 
104 ' 

165 ' ••• BOITE &E MASSES HARBUECS ••* 

186 ' 

!18 LOCATE 9.19:PPINT '".intenint, la bo 

:re ac aasses *arqijees' 

120 PI-3.1416 

130 FOR T = PI^2 TO -PI--2 STEP-. 83 

140 C*C0SfT>: S>SIH<T) 

145 LINE'45*2e»C,146-20»S -' 45-26-C, 148- 

264S>.3 

!50 L1NE(S5*15*C.149-15*S>-'S5-I5»C. !40- 

13»S>,3 

133 LINE.'128*12«C. 148-l2«S>-< 120-12-C. 14 

0-124S),3 

169 LINE il 50-12*C. 140- 12«3/-( 150-1 2»C, 14 
6-12»S),3 

163 LINE<I58*18«C. 1S0-10-3 .-U58-16«C, IS 

0-10tS>,3 

178 LINE<!27*3#c. I S0-S«S .■ -'. 127-84C, 130-3 
•SJ.3 

175 LINE' 105*5*C.I-:>?-5«S - '\ ?5-5«C . '. S0-5 

•S>,3 

136 LINET98*5"C.lS8-5*S>-''9e-5»C, I88-50S 

).3 

183 LINE<73-4*C,I89-4»S>-(75-44C, 136-44S 

>,Z 

190 LINE<58*!»C.138-34S)-<58-3*C, 188-3*3 

■.3 

195 LIH£(45+3»C,I80-3l3>-<4S-3fC f 189-3-S 

>,3 

^08 LINE'27*2*C,139-£*S>-'27-2»C,138-2*S 

>.Z 

285 NEXT T 

219 80X'I5, 118>-(178,I95),I 

226 ATTRB 6.0:LOCiiTE 4,]4:PP1HT "566" 

2=5 LOCATE 9.141PRINT *280* 

230 LOCATE 15.15:PPINT "100" 

235 LOCATE 13.201PRINT "50* 

248 LOCATE 15.201PPINT "28' 

245 LOCATE II.2I:PPINT "18" 

250 LOCATE 9,2i:PRINT "5" 

253 LOCATE 6.2HPRIMT "£■ 

266 LOCATE 3.2HPRINT "l" 
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4669 


BOXFC 


S8,68>- 


100, 


I9>, 




(26,99). 8 












4919 


LINE- 


140,90 


,0:1 


H7- 


(145 


83), 


4020 


LINEC 


75,43>- 


<180 


r>e: 


,6 




4630 


LINE- 


7ee.5e 


,9:LINE- 


'305 


45>, 


4949 


LINE-: 


60,78?- 


C140 


Wl 


,5:LINE' 


<-a69,29> 
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4650 


PETIJP 













39 L0CATE5,6:PRINT"pointe <tzris le 

49 LOCATES, 3!PRINT"pour re»ler le 

59 F0PI=9 TO 258 STEP. 1 : MEXT:CLS 

66 eO/:F'26,29>-<290.86),3 

79 IHPUTPEN X,V 

98 IF X^29 OR X>298 OP Y'26 OP Y>) 



THEN 



98 SEEP:CLS 

118 FOR T»9 TO Xt>; = PNOlNEXT 

129 f1 = INT(X*ieO0) 

136 CLS:C0SUB4869 

148 COLORHATTRB0,l!LOCftTE13,2:PPlNT-A T 

01 DE JOUEP-iATTRB8,0 

158 INPUTPEN C,L 

160 GOSU83096 

176 ONPEH G0T04589. -1505.4510.4515,4526,4 

525.4538.4535 

IS8 PEN 

150 COSUB 3586 

£86 PEN 4;<285,149>-<225, 168> 

219 PEN 5:' £55. 140 - 275, 160) 

228 ONPEN GOTO 4546.4545,4550,4555,7089. 

9686 

236 GOTO 150 

1699 LINE' 18,66.-'26."ti-.0 

1618 LI NE-( 1 48,78 >, 0i LINE-' 1 56,69 >, 6 

1626 LINE(178.68>-(18e,78),e 

1938 LINE-<306.70:.,0:LINE-<310.68>,0 

LINE< 169.79)-' 168, 30 -,2:LIH£( 160,28 



4626 1*20 

4625 GOSUB1009 

4638 GOTO6009 

4649 1*48 

4645 G0SUB4998 

4659 GOT06666 

5698 CLS:COLOR6-B0:LOCSTE5, 17 

C127>IG0T04S88 

5895 CLS:L0CATE10, 17:C0L0P6-Bi:PRINT CHR 

»<127>iGOT045S6 

5010 CLS:C0L0P6-B2=L0CATE15. 17:pRl«T CHR 

I'127):G0T045S6 

5015 CLS:COLOR6-B3:L0CHTEie.l7:PRINT CHR 

*(127)lCOTO45S0 

5026 CLS«COLOR6-B4ILOCATEI9,22»PRIMT CHR 

*(127):GOTO4580 

5625 CLSitOLOR6-B5:LOCATEl6,22:PRINT CHR 

*(127>iG0T04589 

5638 CLSiC0LOP6-B6:L0C^TE:3.22:PRINT CHR 

*a27):G0T04588 

5635 CLS1COLOR6-B7:lOCATEI1,22:PRINT CHR 

ia27)iGOT04586 

5940 CLSlC0L0R6-BS:L0CATE9.22lPPINT CHRI 

<127):G0T04588 

5045 CLS:C0LQP6-B9:L0CrtTE?,22:?RlNT CHR* 

<127)iC0T04586 

5658 CLS:COLOR6-B16:lOChTE5.22:PRINT CHR 

»<127):COT04586 

5855 CLStC0LOR6-BlHL0CATE3,22:PRINT CHR 

i(127>iC0T04586 

6688 BOySi 18I»A6,50-D-':280tAO.89-I',3»B 

8 

6005 B0XFC282-A1.69-I>-i215»Al,89-l),3*B 

6019 BOXF(2i7eA2.70-I > -i 239*A2, 89-1 ), 3*8 

2 

6013 B0XF<232eA3,78-I>-'243»A3.S9-I).3*B 

3 

6829 80XF(247«A4, 75-1 >-<258«A4, 89-1 ),3*B 

4 

6925 B0>;F(268»«5,77-I >-<267»A3,89-I ?, 3+B 

6630 B0XF(269*A6- 98- I >-(276*A6. 89- I >,3*6 

6035 B0y.FI273«A7.88-l>-(233»A7.>- 

7 

6940 BtJXr(287«A8,82-I)-<290tA8,e9-l ,3*B 

8 

6843 B0Xf<292*A9,84-I)-(2944A9.85-: . 3*E 

9 

■<297efll0,89-] ),3 
■(3B80A1 1,69-1 .3 



6659 BO/.F(295*A!0.84-I > 
6955 B0KF(2984A1 1.86-1 > 



>-<!■ 



, 19), 1 



■0,40)-- 100,69), 2 
1666 PETURN 

2668 BOXFf60,29)-<lO9,49 .2 
2918 LINEa9,48.'-'20,56),9 
2628 LINE-'. 149, 50). 01 LINE-'. 156.. 
2636 LINEa7e.38)-'i86.99>,0 
2649 LINE-(369,90),OiLINE-<3I0,l 
2658 LINEU66.78)-' 180,35'. I iLII 
>-<166, 19^,1 



Bll 

6968 GOTO150 
7990 PLAVDO" 
7885 G0SUB3868 

7018 ONPEN G0T07I80. 7195. "118.' 
7125.7138.7135 
7615 PEN 
7628 GOSUB3506 

7625 ONPEN C0T07148, "145.7158.: 
7630 PLAY-DO-1GOTO7O09 
7198 Ae-e!B8=3iG0T05899 
7195 Al=9iBI-3:G0TO5995 
7118 P2-eiB2"3:GOTO5010 
7115 ft3=6:B3-3!G0TO5615 
7129 fl4«6iB4=3tG0T05028 
7125 A5=9tB5«3:GOT05625 
7138 A6=eiB6'3!GOTO5930 
7135 A7=9tB7-3:G0T05635 



9037 C0T09B23 
5640 ATTRB4 >1H 
Erreui U :;..■'. tC0LOR4.£ 
^^45 E*E*1« : r L'i THEN983! ELSE 1 
3:PPINT"Pe'»u I» ic»»e oe* »•»»' 
:*■: STEP.liNEfcT: 

^- ; 5 L( DATE6, nCOLORHPRl 
or,=e est I'fHj 

5185 IF S<390 THEN P-P-l 

9110 IF S)-500 THEN E8*1»C0S0B97B8 

9115 IF ;;209 Tt-tN P*P*HC0T093 

5126 IF S *26.> THEN EI-D 

9125 IF S<106 THEN = *F *: : :: - C >ii5 

9136 IF £>=109 THEN E2*I 1 SOi 

5135 IF S.I00 Then ==?•: 

5140 IF S>*180 THEN E3-HCOSUB9788 

5145 IF S<59 THEN P«P*i 

5139 IF S>=39 THEN E4* 1 ■ C0SUB97B8 

9155 IF 5^:20 THEN P-P+I :COT09l?5 

5160 IF S>-20 THEN E5-::GOSUB9708 

9165 IF Si 18 THEN P*P*HC0T09183 

5170 IF S>«18 THEN E6-11GOSUB9700 

9175 IF S<10 THEN P*P«: 

5130 IF S>>19 THEN E7=::GQSUB970e 

9185 IF S'5 THEN P*P*1 

9198 IF S>*3 THEN E8*l sCOSWBS'Be 

9195 IF S<2 THEN P»P*i : G0T09213 

9200 IF S>*2 THEN E?=l:GOSU89706 

9283 IF S<2 THEN P-P*l 

9218 IF S>*2 THEN E19=l :COSUB9700 

9215 IF S)-l THEN Ell=i:C0SUB97e8 

9216 GOTO9600 

9226 FOR 1-0 TO 150 STEP. 1 ijtE>:T: CL J 
5230 ATTRBI. HC0L0R3:LOChTE5.8:PRIN7-UNE 

AUTRE PARTIE" 
9240 LOCATE 18, 1 2t INPUT "OUI 'NON - ! E» 
9258 IF E*--0UI"THEN COSUB10B00IC 
8 

9268 IF E*»'NON- THEN 9506 
9278 C0TO9238 

9500 CONSOLE0.24:;lS:SCPEEN9, 1.2sATTft01. 
i:LOCATEI5,10tPRINT-F.l.N* 
9510 END 

9698 IF N*P THEN LOCATE II . 6! ATTPB0. 1 1 PR I 
NTBor.ne ••nipulat ion':G0T09226 
9685 IF N(P THEN LOCATES. 61ATTRE0. l:FPIN 
T "Le h»s*rd fait bien les iho*e»"".G0T09 
226 
9610 ATTRB0.1!LOCATE5,5tPPINT-On peut U 

trouper en*IPj " coups" 
9615 LOCATES. 7lPPINT-V«u--tu rt<c--*er.Ctr 
(OUI/NON)?* 

9628 LOCATEI8.9UNPUTRI 
9625 IF Rf-NON- THEN 9220 
9630 IF R*-'OUI- THEN 9640 
9635 G0T09626 

9640 E6-0:El-OiE2-8iE3»0:E4»eiE5-eiE6«0! 
E7*OiE3"0: E9»0i E 1 »U r £ 1 1 ^o t CO 5 UE I k>^."if : Gn 
T0136 
9700 P«P«i 

9705 M1«E0»300'E[«£OO*>E;*E7 ■* iis«*l J * -. o ♦ 
E542e*'E6«E7'.iC'E3*5*..£5*EI6:.te.ElliS«M 
-Ml 

9710 IF S«8 THEN 9216 
9715 RETURN 

10800 A0*eifll-eiA2*0iA3*etA4*viAS"6ta6>Q 
: A7«0iA9-6!A5=6:rtl0.6:Mll-Ot88"3iBl«3iB2 
=3:B3-3:B4-3ie5-3:B6"3tB7.3iBe-3iB9-3iBl 
O»3iBn"3:N-0:P*6iE*O 

18118 C0L0R31L0CATE5. 17:ppinT CHR«(127) 
16128 LOCATEI0. 17:PPIN7 CHR* t I 27) 
10130 L0CATE15, 171PRINT CHfi#il27. 
16140 L0CATE13. 17SPPINT CHP*<]27' 
10150 L0CATEl?.22iPPINT CHPI-:I27- 
10169 L0CATEI6.22IPP1NT CHRi'127. 
19176 L0CATE13.221PP1NT CHR*<127) 
18188 L0CATE11.221PRINT CHft«l£7 
10196 L0CATE9.22IPR1NT CHRKI27) 
19206 LOCATE?. 22IPPIU1 'MM 127) 
10210 LOCATES, 22JPPINT CHRt(l27) 
16228 L0CATE3,22iPRINT CHRf<127) 
10223 PETURN 
16230 CLEAR1GOTO20 



ADDITION DES NOMBRES DECIMAUX 



Ce programme est tire du recueil "50 programmes pour I'ensei- 
gnement et la famille". edite par Andre-Jean DEMANGE et 
Claude PICARD. Ce recueil s'adresse aux enseignants des 
classes allant du CE2 a la 5" mo des colleges. Ces programmes 
fonctionnent sur T07. 
Addition des decimaux ; 

Ce programme est un exercice qui consiste a se reperer dans 
une addition en ligne. Ex. : 10.841 + 1.02 - ? 



Pour tout contact, ecrire a : Clau- 
de PICARD. Classe des Handica- 
pes Moteurs 2. Ecole Ferdinand 
BRUNOT. 22 rue des Folmards 
88100 SAINT DIE. ou a HE80OGI- 
CIEL, qui se fera un plaisir de vous 
offrir gracieusement cette revue. 
(exemplaires limites, atten- 
tion !...). 



1000 ".LS:SCPEE'J 2,8,8iPI>IMT"A0eiTI0N 1>ZI 
NONBRES &ECI«AUX"«C0L0R3IPRIMT) PRINT 'VC 

US wLLEZ VOIP kPPaPmITPE DES A&D1 

E NOHBPES A vIPGULE":PPINT"VOUS DCVRE2 T 

POUVER LEUP SOMME " 

1092 PPINTlPPINT:COLOP giPPIHT'EZEflPLE = 
"1PPINT:PPIHT-18.425 * 6. 2" : PRINT < COLOR 
3:PPINT"CE GUI t>0HWE : 16. 625" 

1683 LOCATE 9.16iC0L0P fesPPJNT'PuiJF /OUS 
AIDER, -iPPINT"LES Att-ITIONS NE C0KP0R1 

£NT ":PPINT-PAS C-E PETENUE-tPPINTfCOLOP 

UPPINT-ATTEHTION ' " PAS CE VIPCULE " : PRI 

HTTAB' 14,-MAIS UN POINT.' 

1884 LOCATE 0>23UNPUT ■ A VOUS (0 Nl " : 

R**IF LEFTCRf, D = -0- THEN 1 06B ELSE ENO 

1003 CLSiLOCATE 0, 13: T"0iPP!NT-SCORE I ■ 

;T;- '20- 

1018 AI--16.425 * 6.07-:GOSUB 1300:IF R< 

/I6.495 THEN GOSUB 1388SC0T0 1816 ELSE G 

OSUB 1988 

1012 A»--7.25 * I.813"!GOSUB 1368HF RO 

8. 263 THEN GOSUB 1806:GOTO 1912 ELSE GOS 

U8 I960 

1814 At*-29.5 * 1.235-tCOSUB I599HF R<) 

39.735 THEN GOSUB 1999:G0T0 1014 ELSE GO 

SUB I960 

1016 BI-*2.7 * 2.15-lGOSUE 1509UF R<>4. 

39 THEN COSUB 1888-.G0T0 1816 ELSE GOSUB 

1900 

1010 A4--23.473 * 1.12-iGOSUB 1500UF R< 



)24.395 THEN GOSUB 1800:COTO 1818 ELSE G 

OSUB 1966 

1828 At*"!. 123 * 2.4-:G0SU6 I568HF R<>3 

.523 THEN COSUB IS001COTO 1028 ELSE GOSU 

B 1900 

1622 At = "2.009 * 1.4-iGOSUB I588UF R<>3 

.469 THEN GOSUB 18001COTO 1822 ELSE GOSU 

1024 At-"6.73 * 1.243"!C0SUB 1566:IF P<> 

7.993 THEN dOSUB 1988: GOTO 1824 ELSE COS 

UB 1998 

1826 A«-"6.17 » 6.8"!COSUB 15801 IF R<>6. 

97 THEN GOSUB 13801GOTO 1026 ELSE GOSUB 

I960 

1029 At-"17.87 * 7.6":G0SUB 1598HF P->2 
4.67 THEN GOSUB I888:G0T0 1828 ELSE COSU 

1030 AI--25.04 • 2.613"1C0SUB I306UF f>< 
>27.653 THEN GOSUB 1869:G0T0 1838 ELSE G 
OSUB 1980 

1032 At"*I72.l7 t 0.22'iGOSUB 15081 IF R< 
)172.39 THEN GOSUB 1386tC0T0 1832 ELSE G 
OSUB 1906 

1034 Af234.62 * 9.8l3-iG03UB 1586UF R 
'>234.633 THEN GOSUB J800:GOTO 1834 ELSE 
COSUB 1986 
1836 fl*«"8.817 * 8.12":C0SUB 1306UF R<> 
6.137 THEN GOSUB 1S88:G0T0 1036 ELSE GOS 
Ufi I960 
1838 A*«-e.675 * 6.12-iGOSUB 1586:1F P<> 



0.195 THEN GOSUB I888:G0T0 1838 ELSE COS 
UB I960 

1040 Af'0.24 * 0.32":GOSUB 1509UF PO0 
.36 THEN GOSUB 1890:COTO 1848 ELSE COSUB 



I960 

1048 AI-"0.029 * 8.4-iGOSUB 13001 II F 

.429 THEN COSUB 18001COTO 1048 ELSE GOSU 

B l988iENC> 

1500 LOCATE 0,3tPRINT AtsCOLOP 21L0CATE 

0,8lINPUT "... "tRlPLAY"[>0 H :RETURN 

1300 LOCATE 0.281COLOP 1 t PPINfERPEUP-iP 

LAY-T4L120200SISOOODOSISOOO": LOCATE 0.2 

OiCOLOR 8,0iPPINT" "! T=T-nCOL0R 3i 

LOCATE 8, J9IPP1NT-SC0PE : "»Tj" ^20-:COL 

OR 2tfiETUPN 

1988 LOCATE 6.2O1C0L0R 2iPRINT"BlEN"l PLA 

Y-T4L1204D0SIS0DOD0SIS0D0-! LOCATE 0.201 

COLOR e,8iPRINT" "1T-T.HC0L0R 3IL0CA 

TE 8,18iPRINT"SC0PE i "ni" /29"iBOXF ( 0, 

0W39,I0)' ".8ICOL0R 21RETURN 




PET»TS 



pOT»NS\ 



I.P.E.M., vous connatssez ? 

Association agr6ee de trois mois, 
1'IPEM marcho d6ja d'un bon pas 1 
Ses adherents se r6partissent sur 
17 departements, et regroupent 
des enseignants, bien sur, mais 
aussi des parents, des cher- 
chours, des psychologues... 
1999, lo journal de I'association 
est disponible pour les adherents 
et une reunion generalo est pro- 
vuepourles2et3JUIN|)fochain:;, 
a BOURG EN BRESSE. 
IPEM, Informatique et P6datjogio 
a I'Ecole Maternello 6, rue Jules 
Ferry. 01000 BOURG EN BRESSE. 



STAGE ARCHITECTURE ET 
PROGRAMMATION DES MICRO- 
PR OCESSEURS 8086/8088 ET 
DU COPROCESSEUR DE CAL- 
CUL 8087. propose par lo DOpar- 
tement de I'tducalinn Permanon- 
te de I'Universite Louis Pasteur de 
Strasbourg les 13. 14, 15. 18, 19. 20. 
21 JUIN 1984 

Construit sur un cas concret do 
representation graphiquo 3D, ce 
stage pcrmot .i des Ingfinieurs et 
Tochniciensd'apprendrorassem- 
bleur 86/87, de resoudro les pro- 
blemos de communications As- 
sombleur 86, langage de haut- 
niveau et d'ameliorer les perfor- 
mances de lour mini ordlnatour 
IBM PC ou XT, SiniUS-VlCTOR, 
AIM 16. MICRAL. INTEL. DEC, 
ANALOG-DEVICES, ALTOS. 

GOUPIL" HoM'.i:i(|n,!iiinn!:. Ul.l' 
DEPT O'EDUCATION PERMA- 
NENTE, 4 ruo Blaiso PhschI 67000 
SIRASBOURGCEDEX T6I. : (88) 
61.30.69. ■ 
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BOMBER 



Vous possedez 5 bombardiers et vous avez comme mis- 
sion la destruction dune cible a 1500 kms de votre base. 
Lorsque vous aurez touche cette cible. vous devrez reve- 
nir a votre point de depart. Seulement, a 10 kms de votre 
base, vous aurez une approche d'atterrissage a effectuer. 
Si vous loupez votre atterrissage vous perdez tous les 
bombardiers, et la partie est finie. Autre cas oil la partie 
sera time, lorsque tous les bombardiers seront touches 
soit. par des tirs de D.C.A., soit par des avions ennemis, 
soit par des montagnes, ou soit par des batiments. 
La partie se deroule en 2 allers-retours. si vous avez de la 
chance I ! 

R BOCQUET 

FX702P 

Mode d'emploi : 

La machine atfiche ''DISTANCE :" et a aroite apparait la distance mate- 
nalisee par une boucle "FOR-NEXT" de 1500 a 10. Durant i'affichage il 
pourra apparaltre a la place de "DISTANCE:" soit D.C.A.. soit MONTA- 
GNE soit AVION ENNEMI. soit BAT1MENT Dans ce cas-la. il faudra 
appu'yer sur !a touche adequate dans le temps voulu dotine dans ie 
degre de difficulte. Si vousn'avez pasappuye a temps, vous perdrez un 
bombardier si vous n'avez plus de bombardier, alors la partie est finie. 
Lorsque vous amverez a "DISTANCE: 20". il faudra vous preparer a tirer 
sur ia acfe. L'ecran devient ' 2 10". il vous suffira d'appuyer surla touche 
correspondent a la position de "» " et lorsque vous aurez touche la cible, 
il vous suffiraderegarderlebonusdefiler, etcelajusqu'a" BONUS: 500". 
Voila. la cible a ete touchee, le bonus est compte, il ne reste plus qu'a 
rentrer Durant la rentree, vous nsquez les memes difficultes que pour 
I'aller, Et lorsque vous arnverez a "DISTANCE: 20". il vous faudra vous 
preparer a atterir. l'ecran devient "" +10". il vous suffira d'appuyer sur 
une touche comprise entreles deux"'" et vous aurezattent. Celaparait 
simple, mais il n'est pas si aise d'arrivera I'atterrissage. 
Bon vol quand meme !... 
TOUCHES DEJEUX 
;Tirde D.C.A. 
+ : Montagnes 
E : Batiment 
. : Avions ennemis 

Pour la cible ou lattemssage : Choisir dans le ctavier numerique le chif- 
fre qui para?t etre la reponse. 



m .-- PEG: 168! 

: ■MKHETsf FS 

. '-■; -t.-.m res 

K-B0H8EK" 

mi '■:•'-■' '::■ 

i;»HCt»i"!fl 
; :.■ "DIFieULTE: 
184' I 



I M iTEFs 
I mil 26:PRT -h 
LES wimw 

SVONT ETE SET 

SJIT" 

: if :=>a;R=x 

5 BIT mm "SC 
MIE!"!X 

6 If AIT 28: PRT 
EtSt:"jB 



SE 



P2i 186 STEPS 
i H=M (RHUMB! 

2 FOK S=8 TO 18 

3 6=18-5 

4 DJ=KY!?=11 

5 IF M*"i6S8 14 
It SSIT v-m CSS 

IB'f-fCSR VI'*" 
ICSS 13;9 

15 IF V=H THEH 25 

16 h'EXT 6 

1? KBIT 28: PRT "CI 
ELE LOIJPEE" 

IS SOTO 15 

25 FOR L=3 TO 588 
STEP 18 

38 BAIT UPRT '60S 




P3: 712 ;tefs 
: FOS 1=8 TO USE 
3 STEP 18 

2 I=I.5e3-J 

3 B=IKT !RBfl«) 
1 IF 1*18 THEH 7 
f C-OTO 18 

T IF 8=5 THEK 25 

8 BAIT BiPRT TIS 

TAh'CE:";CSR 13: 

? NEXT J 

25 C=IST !RAHW; 

26 IF C=l;$='HYifJH 
FJKH]°i60T0 3 

2? IF C=8lS="BBTIB 

•HI": 5010 48 
28 IF C=2II='I!5HTA 

SHE": GOTO 45 
21 $="D.C.fl":G0T0 

58 
35 SSB 1881 SOTO 3 
48 F.S8 288: SOTO 3 
45 638 388: GOTO 3 
58 S3S 488:£0T0 3 
138 FOR «=8 "TOT 

182 »=KY 

183 IF 0!="." TUB 
113 

134 BAIT 8: PRT tlCS 

R 13SH 
183 NEST II 
186 E=E*1 

18? BAIT 28:PRT "YS 
PERDEZ LEVBO 



:;: ><: 

283 " ': = V 7HEI 

■ ■ 

!84 " ; :~ ' :; " RCS 

i ::■■■■ 

.:: EXT I! 
V:- . 

'.'■: Ml '.v.'" "VS 
■l-.i: LE" TM 

: -::e : ~:e 

283 SSB 588 
:>': SET 

211 X=Xtl8:UET 
388 FOR H=3 TO I 

382 C!=fEY 

383 IF 0(=V THEH 
313 

384 BAIT 8:FR! tSCS 
R 13! H 

385 BEST « 

386 E=E*1 

38? BAIT 28:?RT "YS 
PERDEZ LEV88 
HBH»IER";E 
383 SSB 588 

312 PIT 

313 wm-m 

488 FOR H=8 TO T 

482 DHEY 

483 IF M="8" THEH 
412 

484 BAIT 8:PRT !;C3 
R13IK 

485 HEXT N 

486 E=E*1 

48? BAIT 29-.PRT "VS 
PERDEZ IE". "BO 



i ; : 

' : :. : : \ 
56i -■-■: 



■ 






: if :.'=• 

■:. 

- |f ;;=-;-.=:;; 
El 

( : : :■=-"'■■ =J:f 

El 

3 : : :.<= - =- ,: 

El 
6 IF M="5*l '=5:f 

E" 
1 IF Lt="r"=:: : 
ET 

I ;: ;;,— -:: 

ET 
S IF M="3"l l '=S:R 

13 V=9:RE1 

P5: 52 SIEPS 

1 BAIT 28:FRT 'SC 
KE:"!CSR 13;X 

2 IF X>HiB=X 

3 BAIT 38: PRT 'SE 
C0Rt:"lCSR 13;8 

5 GOTO « 

F6: 185 STEPS 

1 IF M THEH 11 

2 IF £=2 THEN 13 

3 IF K=3 THEN 11 

4 IF K=4IG0T0 13 

6 GOTO 15 

II BAIT 38:PRT 'RE 



■ 

! 
: 13 

•- 

: ■■-' 

■ :;: : 
• - 

- M=K 

, .. ;: -. : :: ,. 

! : =.-: 

:■• : 
: ■-. ■.-:: --' 

::; : ir;"t"scss 

■ : : : ': : i : 

[JHEXll 

:: SOTO 11 

:: Ml 28:ffl M 

stj£:~:c;p ::■-. 
13 ; •:•:-=■-: 

II BOTG >.: 



1 IF l>3 T ri'' 13 

: if '=: ihb .. 

• IF <--: THEN 13 

4 1FK=7 T; :'i :: 

5 IF t,=4 : H:N 13 

18 SOTO »5 

il GOTO t? 

13 GOTO 12 ■ 
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EDUCATION ET 
INFORMATIQUE 



ARITHMIC 



Monsieur. 

Je vous adresse sous ce pli les re- 
sultats d'un travail de program- 
matron realise avec une classe de 
5eme de notre etablissement sur 
une partie de I'annee scolaire. II 
s'agit d'un programme d'aide au 
calcul arithmetique recouvrant la 
majeure partie du cours d'arith- 
metique du programme actuel de 
la classe de 5eme. 
La partie algorithm ique a ete vue 
et realisee durant les heures de 
cours en approfondissement des 
lecons correspondantes. La pre- 
sentation et la mise en page ont 
ete elaborees durant des heures 
de Club (club fonctionnant dans 
le cadre du Foyer Socio-Educatif 
de notre Etablissement). 
Ce programme, destine a des ele- 
ves du 1er cycle, reste volontaire- 
ment d'un niveau simple. II pour- 
rait bien evidemment etre large- 
ment ameltore surtout au niveau 
de la rapidite d'execution descal- 
culs lorsque les nombres sont 
grands. La n'a pas ete notre but. 
En ce qui me concerne. je m'atta- 
cheamontrerameselevesquela 
programmation est abordable 
des le plus jeune age et qu'il est 
interessant de programmer les 
calculs longs, fastidieux et repeti- 
tifs. 

Nous esperons, malgre sa simpli- 
cite, avoir la chance de voir ce 
programme publie dans votre re- 
vue. 

Je profite de ce courrier pour vous 
dire combien, en tant que profes- 
seurde Mathematiques, Respon- 
sable de Foyer Socio-Educa'if, 
animateurdeclubd'informatic^e, 
j'apprecie le serieux et la qua. til 
d'HEBDOGICIELSeule ombre au 
tableau, les delais d'achemine- 
ment qui peuvent atteindre jus- 
qu'a 15 jours... Bravo pour la rubn- 
que consacree a I'enseignement. 
Bien entendu, nous restons a vo- 
'".- disposition pour tous ren- 

.eignements complementaires 
':oncernant le programme qui fait 
i objet de ce courrier. 

'.'■ir.'.i'attenie.recevez. Monsieur. 

i assurance de nos respectueux 

sentiments. 

CLUB 56me Mme RAMBERT 
FOYER SOCIO-EDUCATIF 



IiiFiji" VOTRE CHQIX 



PPOCRMWE POUft RECOHHSITRE 81 
t'EMHt'OE bE L'CmiHftTEUR t*UX 



fU PREMIER)"»B F-PIHT 



L'UH HJ H0IK3 b£ r i M0H6f>E% tWJlili ESI 



Z ^m^ M i J i"uXhte ?,3.PRIHT"V0ULE2^WS" HTTWe.e 

""'L'' DIVISEURS D'UH IOMPE "■ COLOR SO PfilWT'l" COW 4,0 

% PWm "'uME LISTE CC t«MWES PREMIERS "■ COLOR B>3 PRIHT-2" COLOR •<■« 

'''.', ZVvn^vEfUV*'*.* U.« KOMBPE EH RPOWIT DE FRCTaRS PREMIER 

.....", ':0LQC:ti.i PRIKI-3' C0LOP4.9 

M PRIHT-^TROUVER LE PGCO OU LE PPCM OE C€UX MOMBP 

Ei...". COLOR 9.3 PPIHT-4- COLOR 4.0 

iee F-RIMT PRIMT'PRIHT PRU'T RTTR81.1 COLOR i 

[te OU ii GOTO 9e9.2©9#4W.6aB 

208 CLi SCREEN 4,6,0 PRINT PPHtT 

>i.-. fPMIT" L'OPt-IUfiTEPJR Vft VOL''; [.-EtMtL.EF [EU.: 

LES LU1 HiJRE^' &OHNE.IL fiFFiCMZfrft Lfi LliiE DCS 
E CE8 DEUX HHTURELS" 

z\<> RF-iin PRinr ffiiir vf-imt 

■ V~; F-Ririr- vijUS prji/.'EZ EWLEMEMT utIlISER CE 
"mi HHTLiREL EST PREMIER." 

22H PRINT- IL VOiJ's SUFFIPFt V IMTROD'JIRE H LR 

itOffiREi Wji Eni:fiL-REHi Lfc kmIuREL ft ETijMER" 

Ij^RRIMI r (£»■*• 1.6 RPllir" LEI HO'tEFE', L-EHWH/E^ L'JlVEMT ETRE 

W*r> L'0R[/PE rprjI' 3 S»(T tl (.fjnfOPTtP HU HftXlmjTI fi CHIFFPES 

23S LOCRTE 38.23 COLOR 0,5 PRINT 'ENTREE' COLOR *>6 

ZTfi .'.*=Iii»Ei* IF :•* CHP* M> IHEI4 2;5 

240 CLS 

■S3 L'jrflTE4.*j INPUT'PREMIES MOHBRKENTIER)'"jfl 

26S L0CRT64.8 [ilRijT-r>€ijXIE»E HCHiePE- ENTltR El 'iiJPEP.lEUP 

L'-il 'if fMWKA) RW* e-INr'By FiHtj PK8 RNO PK3WS93 ft"C K999999 THEM 266 
it-' IF ft [iiT'ft- THEH RRIHT- "-ft," "'EST RftS EHTIEP" 
lf>i IF fc- -IHT.B^ THEH PRINT- ".B." N'ESI PflS EHTIER" 
2&4 IF rt>8 THEH PRIMT- t lHt*>*ih 

26Z- IP fl»9W99 OP B > M» W then PRINT' 

TROP r.zetO" 

see rriiit- VOUS N'flVE2 PflS TEHU COMPTE DES CONSICHES." 

£70 PRINT PRINT" mPHJYER SUR ENTREE' ET PECOHHEllCEP" . fi« 

27', Rrt-IHKEr-* IF F*-CHP«- 1'i'fHtN 24ft ELSE 273 

23$ CLS RRIHT 

&', PRINT Tftb'.'^'-tl l*.«1fcPES RREIUEPS *«" PRINT 

2S8 PRINT TR0C7>*COMPRI8 ENIPE ".ft." £1 *'.B PRINT 

2« IF rV2-IHT<(V2> fHEN H-ft*l 

388 IP ft a ^ 'MEN PRINT 2,-S", 

)8S IF ft'-i THEN RRIHT 3,-f. 

318 FC* n-h Tfj B STEP 2 
il5 0-3 

328 IF N. b'UII'H/l// THEN GOTO i'& 
3« IF O.SOR'N,. IHEN CO TO i4« 

J3B vv* 
in GOTO 328 

348 IF H>*3 IHEN RRIIII N.'l - , 
3W NEXT N 

;!ii L0CRTE3.22 INPUT 'VOULEZ-VOUS REUTILISER CETTE PftPTIE D'J PPUCPWinE' Hi'iK* 
fA IF P»-"0" THEN 248 ELSE 2W* 
4fj*» CLS SCREEN 4,6,8 ffiiit friim 

401 F»»-M«M - 

405 II*-OT- FMCTORtiFiTICtfl RREHIERE Ofc ",X PRINT 

407 ft-/. 

*(fii IF ■/.,'&&&} 'HEN HITRfcl-l L'Ji-MTtj-15 LUL'JRI .'J I -F HIT" >ij . I... F f. I M .itlll,iL:L£ . . . IT Ht'.l 

SEZ PRS ijE Hft BOItC VOLOHTE"! " HITRBOU C0L0R4.S GOTO 413 

410 IF 1N1< .: ■ •.: IHEN RPlllI'V.jiJ:. Nft'rtJ PftS WjltlE UN NOMEPE ENTIEF'lL I i 

413 PRINT PRINT" HRPJJYfcR >UR fclttRLE 1 tl REi.OHITENlER" .M» 

J£'j M*INKEYI IF H»-LHR»' Ij-IhEN 400 ELSE 4^0 

422 IF X-2-INT'Z^2,IH£N PRINT" ".2 .:=/-■: 'A-Tu 422 

423 FOR t-i TO «*>■:/. 'iTEP 2 

438 IF >:■- I-IHP /'!/ then PSINTU81NC f«-I -■■-•:- I GOTO 438 

44d ,*.-:t i 

43*s IF >:■ .1 theh PRINTUS1HC F«;« 

493 "TTREy.i LOCATE I. 19 RRIHT ft."*-, 

430 C-8 

468 IF H ■£=»(!• «.2.iHtM OC*l ft-fl 2 C0T0468 

**,£ B=10 

485 IF C -0 then LOCRTEB.iS PRIN72 FTTTRB8.8 

4ws IF c-^-0 THEN LiX.ftiE 8*2-17 PRINTUSIHG'M'.C L0CHTEBM.19 II fi I THEH PRINT' 



l ij, I i r-J 

j PRINT' 
3 PRINT* 



P'| UCL1M kwi 

. ... -.i .}., n.- 

. ! , 
PRINT II INT 



■.N,-E! LE" 



487 IF L THEN B«B*L*i 
498 NEXT I 

SO* IF 1 1 IHEN HIIRbO-1 LULHTEt. Vj FRIIlTH HllFtU.H 

Ut£ 18-STR* I ■ L"LEN< I* ■ 

504 IF ft ■! IHEN LL»-HlE B*L.I7 FFJNl 1 

518 LOCATE -j.22 INPUT 1 ftvEi-VOlfc >J" WTRE NOHBRE » B 
3<*t IF T8--0" INEN-488 ELSE 2888 

eor. CLS r CREt'i 4.6,8 PRINT PFim PRIH1 
618 PRINT" '.^ »ro*r.«x UtlttM " PPIIM 
613 PRINT" - Li MiKKic dlU ■}-- i mL'J.*11HIH i 1 

(wn OiviMur CP.G.CO. - d< ■J-.vx 

- Lj ProPrift* luivloti iv" i- 
F-.C.ll, d* J*'j- #nti«r< ruturali fl 
.C.I -t" ftt ■ ■ P.P.C.H" nt: ' ■ RxB' 

m* dteoftfo«ttlons «ti Produtti * ...■■■ ■ ■ ■■■ 

, ,, .. ,-,|..... t*7-wo»u -• \ e*tion I 'J" mmi 

.'V. L'i'MTt •"■.'i LUL'JR 0.3 FRUIT 'ENTREE" COLOR 4-'. 

S48 I8-INKEY8 IF ..* 'CHRfclSJ IHEN 635 

65B INPUT' PREMIEF NOMBRE<ENTIER) "■!' PRINT 

631 INPUT' DEUXIEME KOMBREtEHTIER> "jH PRIN1 PRIHl 

-.'.^ (I (l-llll-ll.- "UL> N-Illl'll- THEH -ise 

633 IF HOIKKMJ THEH PRINT" 'itti* N'EST PflS EllllLR" 

634 IF ii >IHT<N) THEJt PRINT" '>N<" "i EST PftS EHTIER" 

633 RPIHI" VijiJS n FTVEZ PR3 Ifciiu COMPTE DCS <->-■><-• IOCS. ' 

;.->; IF II -."-- ..•- il,--.-.-.- THEN HTIREI I LAME'..'. COLOR 1.0 FRUIT" MVE- RftlSOmi 

ftfeLE-.-NftfeUSEZ PA'S CE TW BONNE VOLONIE HTTFLO-O '.'A*4 ■ -.- LL ,E-, V? 

rj3<- PRINT PRIHT" HPRi.i.'LR ■-<-<>■ ENTFtL tl RECOMMENCES" • H« 
650 ft«=IWEV» IF RMCHR8C13>THEN o43 ELSE 658 
699 P*H*H Ml-M I 
668 PRINT" P.O. i. 
663 P-H-1H1- ii n "ii 

67« IF P»0 IHEN 6b5 

673 ** H-.R 
6io COTO 665 

635 C0L0R1.8 PRiNi ii COLOR 4,6 

698 RRIHT PRINT 

692 f"PVH 

6>7. IF -,■■ ■;-:-?■»:-. then PRIHT" P. P. CM. 0E".Ht."ET DE , ,III," ' . C0L0«,8 PRIHl 

^%..,''i MLOR^'oVFiMr-LE P.P.C.H. OLiifiirt-'E EST FROP CJWNO POUR OUE JE PU1 I I I 

H LOflNER UNE VftLEOF EXfti.IL" i.uLOR4.-. 

;'iG LULMIEl, 22 IHRUl-HVEZ-VAi^ (■ MUTRES P.G.C.D. OU P.P.C.H. .1 LHLF..HEF (0 Hi'l 

P» 

740 IF R»--0" THEN 643 ELSE 2808 

MS i i ■ KREEN4,6,8 PRINT n- mi 

S^2 F*« •••»••- 

B83 LOCATE 18.4 INPUT "01 VlSEURS I.L *.N IF1NI 

S88 IF H>999999 then RTTRBl.l LOCATES, 6 C0L0R1.8 PR1NT"80YE2 RAIS0NNfl8LE...N'A8U 

■A F-Hi It lift BOiiNE VOL0HT61 H ' RTTRbi'-O u.'L"--i ■ '. f. 

S18 l^ IMT.H.. -II THEN PRIHT"VuO J N'HVfct FHi. OUNNE Ull N0H6RE ENTIEF"ELSE B22 

813 PRIHT PRINT" RPPUYER iUR ENTREE LI FECOIintNi.EF . H* 

S28 M»>H»E-» IF ft»*I.HR». IjvlHtll 888 ELSE 820 

822 PRINT' "it."- "■ RRinriJSINC F4.H 

630 FOR 1-2 TO SQftt N , 

833 IF tflBlNTUI 1, nil n 1 .1 ii*ii PRIHTUSING F8.Ij PRINT" ' ■ PRINTUSING F8.N 

8JO IF N I^INT..N [ . ftHO H II IHEN PRINTUSING F"»<I 
y45 he>:i ] 

...i i L0CRTE3-22 II OU i. ■ '-.".': ct ; v\; liEUF - b UN RUTRE HOHJRE iO ll>'.Ri 

838 IF P4-"0" IHEN 90S ELSE 2888 

1888 FOR 1-1 ro 58 

1818 C-INTi RNW8J 

!,.■>■ |f . -• i,-i N 1818 

Iujo Lint.u.'J'-' INT<RND«328>,INTCRND*288>J C 

104U LINE- Jw-U.^UU.'- IN'' Fl"--' ..'-'J.-. Illl ' FNL-i. "».' ■ I 

1838 I !NE( 8,288 ■-• in!' RHD«328/. INT<RH0*208j -•'. 
-Ti RNC-i.-'J. nn- R)Ct*200 ■ ■■'. 



I 

Ji.Mlt ■- ll .1 



r'.-lli. I 



..: IM 



. 14,81 HINT' 



RR] niltETIi.'OL ' 






1SSOIRE " 

1093 FOR 1-1 10 '.■•.'•.".I ml. .M 

1 186 REioRN 

2888 CLS iCAEEHl ■■ B 

hi FRBI . i UXHIE .' ■ i Fjtti "VOULI 

. ■<) ih.i e i fl- ■■■!'-' PRINT' ntVi n- lL KENU 

COLORl'8 

^813 LOCATE 6-14.PRIHT"- 10RTIR WJ PROGRAM1E *. COLORfl PRIHl . 

-.-■• FtTTRBI.l LOCATE 9,28 IHPU1 VOTRI CHOix'.H-ftTTRBO.O 

"..■■ ■■ -"i" 1-;. ISo . 



01 Q I f nn ■ 



LE PROBLEME DU CHARPENTIER 



Amenez le bloc bleu du coin superieur gauche au coin 

superieur droit. Ce casse-t6te, connu aussi sous le nom 

de I'a'ne rouge, vous posera de nombreux problemes ... a 

moins que vous ne conlempliez la solution offerte par le 

programme. 

Mode d'emploi incfus dans le programme. 

Pierre BAYLE 




o^ c 



_!•. Po.Eaia.2 

_30 DATAJa, 23, &*.««. ioe, ;5, JO, so. 1-4-4,2 

_oO C4:*l0a.al,JO,1O, 144,ol 1 s»,30,J*,» 

~,30.*a 

_70 DATA72.*?, SO, 66,144, »7,30,A4, IBO.9 



10M ••• 



_UO DH*y- i»a,o, l : WfAvO, - 13-». i 

_133 A*-'L£ PROREK DU CHA*PtMt I6R* 

_I3? 1-40; :>I80:'cm: cosu»=oo 

.140 CURSET210,23,3:F1LLHJ4,1,7 

_2O0 '•Jo;i-n:L'««;H. t 4 

_210 CU»StTK-»,Y,):FtHB.s,l,< 

_220 FOWI-OTON-I 

_230 CURSETX,Y*l.i:W(AWL-1.0, 1 

_240 «XT 

_230 A»-*vOUS 0€v€2 PCPt.*CEI»-;«-l:C-3: 

fo-i:gosu»»©o 

_2ao x-34:t-23:*-4:L-**:h-44;qosu»2100 

_27o »4>--ce ».oc-:»-i2o:c-3:fd-i;gosu« 



; cel«':»-iab:c-3:fd-i:oo 



_300 BCTSUB210O 

_3io fo*I-itoi0OO:"«xt:hiri 

«4-LK»C» 

_312 POKEAie,2 

_313 CURSCT2A, 13.1 

_320 ORAViva.o, l: ObawO, 13* 

_330 :4i«-i i »!>,3.i. , w*"0, -i 

_340 CURSET210.23.3: 

_3SO 



_3020 IFY-23THEN800 
_3030 IFP0INTIX.Y-361THEJ49OO 
„3O40 IFP0I*T1X*36, Y-3<^ANDL-< 
_3030 IFK-iTMeNA.4ELSEA-l 

1 CU«*SETx-*,y-36,3:FILL.34, 
.10 F0R«-lT03a 



woo 


REX **♦ DEPLACEHENT 8A 


«OOS 


GOSUB70O 




IFY.H»lO-I73THEN900 




IFPOINT IX, Y«H*10lTHEN8OO 


4O30 


IFPOINT <X*36,Y-HH01ANDL 


4JO30 


IFK-lTHt«A-«ELSEA-l 




CUR3CTX-*. Y.M»4, 3:FIt-L3a 






4120 


CURSETX,Y,0:0RAML-l,O,O 




CURSE TX,Y»H, II OMUL- 1 ,0, 


<1-11 


t-y-i:mext 



_41*0 CURSETX-, 

_*200 eoioaoo 

_3000 REM •«< 



'iwi ■oeplacewehts' 
_3013 r*«key»:getr» 
_3o20 priwt'voulez vous 7 rec04wehcer' 

_3023 dp-o:r-o:s«o 
_303o pr1ht-v0ir la solution/2' 
_3o40 input-a uwe autre f0is/3'1d 
_303o ifd-ithenr«1:got0310 

_3060 [FD-2THENS«i:OOT03IO 
_3O70 IFD-3THEN text:e*d 

_3oeo GOTOS020 

_320O REW *** REUSSI *»♦ 

_3210 PR'nT:print:PRIMT*8RavO VOUS AVE 

Z REUSSI " 

_3220 PRINT-EM'IOOl 'OEPLACEHeKTS' 

_3240 GOT03O20 

_3SOO REM «-** SOLUTION ••• 

_3303 CALLVE6C* 

_33I0 FOR0-1TO83 



_3320 REABk.d 

_3330 K*aiK ( lllV-||K,Xi : l ->.■.,]. ;m. 

_3340 OH06OSUS 1 030, 2030, 3030.4030 

.3330 N£"T:CALL4EBO* 

_3333 GOT 030 20 

_33a0 B-T«4 > 4),4.4.Z,« ( a a 4.1 ( 2,*,3,4 

7, 1,2,1,2.4,1,41,3, I.S.l.S.J.O, 

3.9.3 

_337o B*T*4,2,4,2,2,2,2,»,l,4,S,4,a 

3, I. 9, 3, 2,3,4, i,«, 4.8,2,2,3. 2, 

3.4,3.4.3 

_3300 0ATA»,1.8,4,B.4.2.2,2,4.3.2.« 

3,3,4,1,4,1,2,1, 2(1,9,4,3,2,4, 

3,2, I 

_3SVO *>* , *3,I.B.3.8,3,»,2,l,J I 2 t 4 >3 

«.4,4,4,6,2,7.3.2,l,4.4,*,4.3. 

1.3,1 

_340O DAT as. 3, 1,3, 4, 2,4,2, 2, 2, 2,2,4 

1,0,4 

_3<UO OATAa.4.1,2 



UL':B-t:C- 
_333 FORI- 



;T0-»:F0*U-lTO4 
ll.llsMXTlMBr 



_-_*■-; iiomm 



•4' EST PAS SE 



_403 I FSTH€K33O0 

_4io fd-q:»-i:c-3:gosu*QOO 

(•■•A VOUS 0»£ JOUER 1AIIfTt»B 

:«3;F0"i :gcsub?oo 
_423 OH-O 
_430 P1*H4T*FLECMeS POUR DEPLACER I 



_4ZO ' 



■*SMH 



-FLECnes POUR LES BLOC 



_4SO PRIMT'A POUR ABAWOONMCR- I 
_433 CALLRE804 

_470 CURSETI, J,3;CHA«42,0, 2 
_40O REPEAT:d-DEEKi320I:L»<TIlD< 



_300 IF0-143K 

^310 IFD-143Oe**40I>3OT>«>4I-t-34l 

_320 IFO-14324AM0H l»2THEt<I - I -3* 

_340 IFD-143iaAMDJ<143T»CMJ-J>36 

_330 IFD-144V2A»(DJ>39T*4:MJ-J-34l 

_3<W3 IF0-42136THCM1OOO 

_370 IF0-4Z172TMCW2OOO 

_3BO IF0-42I44TMEM4OOO 

.S'JO IFD-42140TM£W3000 

_3V3 G0T0470 

_400 RCH *+* BETOUO *** 

_*I0 :F0»«TMeNPETU«tt4 

_6Z0 BIK.II-X:SIK,2I-Y 

_423 IFSTKIM»eTUB»4 

_fi23 DP-OP- 1 

_427 JFtC-IAMDX-I44A*4DY-23TMCM3200 

_A30 CACLREB04 : G0T0470 

_7O0 REN *** DET K •+* 

_703 CALLREACA 



_710 XX-I-12:YY-J-12 

_720 IFPOIKT1KK-41, YYITHeHXX-XX-34:OOTO 

720 

_730 IPPOtMT(XX,rY-3)TME»«VY-YY-3*:C<ITO 

730 

_740 FORO-ITO»:IFXX-HO,IIA*40YY-»rO. 21 

_730 MEXT; IFO-IOTMEWPOP:«OTOeOO 

_733 x-xx:Y-YY 

_7ft0 L-»C«,3>:M-BIK,4I 

_7 70 RE TUB" 

_8IO C*LLBEa04:GOT0470 

_O0O REM •*• AFFICM M.R •♦* 

_O10 CURSETB,C,3:F0RI-IT0LEN!A4I 

_■-■-■■■ CHARASC<HID«<A4, I. 1 I I ,0,FD 

_"30 CUR«OV*,0.3:NCXT 

_1000 REX ••* DCPLACEWEMT OAUC>« »«4 

_1010 0OSUB7OO 

_1020 IFX-34THENOOO 

.1030 IFPOINTIX-3*. YiTMENBOO 

_lO40 IFM-ft4At4DP0IMHK-3*.Y*3*ITHENB00 

_1030 IFK-ITHEHA-4ELSEA-1 

_H0O CU»SETX-42,Y.3:FILLM,4,I.* 

_IltO CW«S€TX-4l,Y.3:FILLM**.I,»« 

_U20 FOK0-ITO3* 

_1130 x-x-i 

.1140 cu*setx«l.y,o:o«»*»».h-i,o 

_U30 CU«SCTX,Y,1:0«AWO,M-|, i 

_1 1*0 NEXT 

_1170 GOTOaoO 

_20OO REN »4»DE PLACEMENT DROITE ••• 

.20 10 OOSUB7O0 

_ZO20 iFr-l-*-21*'m€NUOO 

.2030 IfP01NTCX«L«lC 

JO40 IFM-66ANDPOINT !...!.< 

_2030 IFX-lTHtHA-4eLSEA-l 

J1IO CU*I6CTX,Y,0:0*AW0,> 
.2130 X-X.l 



< OEPLACEHCHI HAUT I 



_3O10 &O&UB7O0 



LOGICIELS FAIT MAIN ! 

Pourquoi acheter cher des programmes que vous pouvez entrer vous-memes dans votre ordinateur ? Utili- 
sez-les tel quel ou ameliorez-les pour en faire VOS Logiciels. En vente dans les FNAC, les boutiques 
HACHETTE, la REGLE a CALCUL, chez les principaux revendeurs ou par correspondance en utilisant le bon 
ci-dessous. 



at PROGRAMMES 
TEXAS NSTBUMENTS 




Program mez vous-meme en Ti- 
Basic grace a des instructions 
simples, sans aucun peripherique 
m module complementaires. Des 
jeux originaux et passionnants 
avec couleurs, graphtsm«s et 
sons : Jeux de mouvement (Bow- 
ling. Bataille de I'espace. Labyrin- 
the. etc.) Jeux de reflexion ; Da- 
mes. Pendu. Awan. Tour de Hanoi. 
Architecte, etc.) Jeux de societe 
(421. Goldie. Cochon. Mastermys- 
ter. Chiffres et mots, etc.) 
Des programmes performants: 
Calcu! (Factures. Paye. Bioryth- 
mes. etc.) Assistance (Tierce. Im- 
pots, Suivi de compte en Banque. 
etc.) Et aussi des Astuces pour 
augmenter la puissance du Ian- 
gage Ti-Basic. 



Le tome 3 est en basic etendu.il 
necessite done le module "Exten- 
ded Basic" qui augmente consi- 
derablement les possibiites de 
votre ordinateur. A des program- 
mes utilitaires comme un traite- 
ment de texte ou une gestion 
complete de plusieurs comptes 
en banque s'ajoutent des jeux ra- 
pides (bataille navale. course de 
voitures.etc ). des jeux de societe 
(Theme astral. Drapeaux, Poker. 
Harmonium, Calculette scientifl- 
que, Ardoise magique. etc.). des 
utilitaires pour creer des lutins.tu- 
sionner des caracteres.dessiner 
point par point, faire defiler des 
textes dans tous les sens ou en- 
core fabriquer une mire Texas a 
votre nom ! 



JEUX4tnOGMMMES 





Du jeu de reflexion classique 
(Tours de Hanoi. Pendu, Color- 
mind. Awele. etc.) aux utilitaires 
performants (Generateur de Ca- 
racteres. Tri, Calendrier, Histo- 
gramme. etc.) en passant par les 
Jeux de reflexes (Terroric. La Plu- 
me et le Poussin. Labyrinthe. etc.) 
les jeux d'attentioo (Dames, Ro- 
tations. Enigmes. Coffre-fort. La 
Peine, etc ) ou de hasard {Poker. 
Quinze-Vainc. etc ) et sans ou- 
blier les mathematiques (Frac- 
tions. Nombres Premiers, Traceur 
de Courbes, Multiprecision. etc.). 
Jeux et Programmes pour ORIC 1 
offre un large eventail de pro- 
grammes aux couleurs. graphis- 
me et sons tres soignes 
une mine d'or pour votre ORIC 1. 
Exlste aussi pour ORIC ATMOS. 




Le tome 2 est taujours en basic 
simple, sans penphenque ni mo- 
dule complementaire Plusieurs 
programmes comprennent des 
versions fonctionnant soil en ba- 
sic simple, soil en langage machi- 
ne avec la mmi-memoire. Les jeux 
y sont encore plus nombreux : 
Blackgammon. Sous-marin. Trap- 
pe, Roulette, Casse-tete. Puzzle. 
Echecs, Tachistoscope. Kim. Pai- 
res. etc De la musique a inclure 
dansvosprogrammes:BigBen.la 
Marseillaise, God save the queen, 
les Rois mages, etc Et aussi, des 
programmes educatifs : Arithme- 
tique, Calcul de puissance, Re- 
gions de France, entrafnement a 
la logique informatique. etc. 



Vous connaissez le Ti-BasiC. vous 
possedez un Ti99/4Aet un modu- 
le "Minimemoire" ? Vous pouvez 
des a present disposer detoute la 
puissance de votre ordinateur 
Acces a toutes les possibilites 
graphiques.ycompris la haute re- 
solution Accesdirectalamemoi- 
re centrale, Grande vitesse d'exe- 
cution (deux minutes au lieu de 
deux heures (rente pour un meme 
programme). 

Ce manuel, comprenant un grand 
nombre de programmes com- 
mentes vous apprend progressi- 
vement, sans connaissances 
techniques prealables. a maitriser 
un langage tres puissant reserve 
jusqu'a present aux seuls specia- 
listes. 





Explorez les etonnantes possibili- 
tes de voire CANON X07avecles 
quelques 40 programmes reunis 
dans cet ouvrage Des program- 
mes performants qui fonction- 
nent sur le X-07 de base (8 KO) 
calculs sclentifiques operations 
sur les matrices, conversion de 
coordonnees. racines de polynfi- 
mes. integration, interpolation, 
etc Des utilitaires gestion de 
compte en banque, histogram- 
me, imp6t, hard copy, trace de 
courbes. biorythmes. etc Des 
jeux loto, poker, ardoise magi- 
que. un peu d'EAO. un super jeu 
daventures : le Tresor du Gallon 
et 3 *gros" programmes qui ne- 
cessitent une carte d'extension 
4 K Astral. Tierce et Surfaces ot 
Volumes 
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LA CITE MAUDITE 



Cette cite 6lectronique est un vrai dedale. A vous de de- 
couvrir la reserve d'energie lui permettant de fonctionner 
encore pendant quelques temps. Evitez les robots meur- 
triers... et les murs ! 

Vous etes a bord d'un vehicule blinde disposant d'une re- 
serve d'energie de 80, au depart- Surveillez-en le niveau. 
Sur le plan, la reserve d'energie est representee par un 
damier, les robots se reconnaissent d'eux-memes, votre 
char... vous n'hesiterez pas en le voyant. 

Eric AUDREN 



Commandes principals : P. X A, R, C. 

Lorsque vous voulez avancer (A) ou regarder (R), indiquez la direclion 

(E : Nord . X ; Sud ; S : Est ; D : Ouest). 

Tirez (T) plus vite que les robots (a 2 cases 10 secondes. a 1 case 6 se- 

condes). 

Vous ne pouvez voir le plan (C) que 3 fois par mission... N'abusez done 



un robot !! 



40 CALL 

50 FOR 1*3 io a 
60 CALL COLOR II , 

WNtH i 

80 CAUL SCF 

90 CALL CMAR'14--.. 

■ 

. . ■ 

■ : . 
tro CALL 

■ . . HERS I 

■ 

- 

160 PS!:. 

: :.-jt - 

■ ■ I . : 

1*0 PRINT - 




200 PRINT ■ 

220 PRINT ' 
ST" 

■ 

■ 
SULTER* 

ER" 



■ ■ 

^: POUR EST 

D: POUR OUE 

i - ■ ■■ ■ . - 

FC; POUR f-EG 

Cj POUR CON 

! P y,~ ■ '.■-■ 



: ■ 
H 

2SO fii- ■ EFF- 

2"' .-I '•■■:■- tfFF- 

!^ FFFFFFFFFFFFFFFF" 
CHARI I29„A*( 
. -' ■ 

■■■■.. 

90.CV1 

■-■:■■■.■: i. 
. u I . . . Bl 

■ ■ 

. . ■ ■ . 

■ . . ■ ■ . 

■ 

■ 
--' 

■ 

E • 

430 CALL COLOR"?. 1 , I I 
410 RANDOMIZE 
■17,0 FCR 1 = 1 TO 7.5 
460 XX-INT'PND«9)*14 
•170 W»IlfTCRND*e)*4 
480 CALL HCHARI ' ' . ■ 

■ ■ ■ ■ ■ 
500 FOR 1-1 To I 6 
510 XX-INT<RND-9)-l _". 
Z2'i W"IN ' ■■-',!.,•■■<. ■ ! 
530 CALL HCHARI ' • . ■ . . 
340 NEXT ; 
350 A-INT'PND-4> -IB 
560 &-!NT'fND-4) '9 
370 CALL HCHAft<A,B,1021 
580 call HCHAR '/■.;:• : , 
590 CALL HCHAR<A,&-I, !2) 
CHAR (12, 2,100, 
610 CALL . . ,100, 

620 CALi VI HAfl 113,2, 100. 101 
630 CALL VCHAftl 13,12, 100, 101 

UB IZOO 
690 /-I 3 
t>b<> y-4 
670 BRBNBT 
600 PI ■ 

UB 1390 
710 f'CM 

72'i REM • PROQ. PRINCIPAL • 

no rem 

740 ER8-ERS-1 

.".'■ FOR 1-! TO LEN<STR»fEPG) > 
;ts> CALL HCHAR12, I+S,ABCtBEe»(91 
R»(ER8) . i. I i i I 

770 NEXT I 

7SO FOR I-J rO LEHfBTR* IP7B 
790 CALL HCHARI2, I *1 3. ASC !SEG« (S 
TM (PTSJ ,1,1)11 
BOO NEXT 1 

BIO IF ERG- 10 THEN 3920 
B20 CALL KEYIfl.owE.ASDi 
CALI HCHAR IX, Y, 103) 
040 IF AST HEN B 

HE~Q2 IHEN B90 
..... 
II . 
■ ■ ■ : 

I L'<4,0WE.ASD) 
700 CM ! HCHARlX.Y, J2) 
710 II i-Mi -<• rHEN 690 
WO II DME-69 fHEN 930 ELSE 990 
930 IF CASE- I THEM 940 ELSE 1290 
940 CALL GCHAR(X-l.Y.BDU) 
93'J IF U0B-10O IHEN IB90 ELSE 96 
" 

■".,■• • ■ i I 
970 CASE-O 
980 BOTO 1290 

MO li owF.-ea ihen 1000 i:i Bl 106 



10 ELSE 14 



101' 

■ 

.; ■ 
■ 

1060 
SO 

BO Else 13 

... 

■■■•■■■.■ i . iiOBl 

■ 

I ■ ■ 
;ase-o 

! 120 GOTO 1390 

1130 IF DME-B3 THEN 1140 ELSE B9 

I140 IF CASE=1 rHEN 1190 ELSE 17 



■ 
i fiOTO 1 7 
I REM ••* 



1660 Cf,LL GCHARi/'l, f .88) 
16 ■■■ BOSUB : Zi ■ 

ALL HCHAR '5.25. 79 > 
■'.--:- 13,25, 691 
I 700 CALL HCHAR<9, -I . 78) 
■■■■■.-..■ 





VUE DE £5) 




• 


: '40 


CALL SCHAfi 


. 


1, r-Z.BIl 


: 790 


CALL BEHfifl 


1 


. .: : 


■ 


CALL CHAfi 








■ - 




. B 4 ■ 


. '» 


CALL BCHAfl 




■ 


. ■ 


C«LL GCHAR 




I , f- 1 , Bfr] 




CALL GCHfiH 




: . ■ . . ■■ 


1 3 1 


CALL 6CHAR 




i . . , bB> 


1820 


SOSUB 1200 








CALL HCMAR 


-. 




1840 


CALL HCMAR 


i 


,29,7 


1 950 


CALL HCHAR 




■ ■ ■ 


IB60 


CALL HCHAR 






1B70 


BOTO 















LUnflR 
LflnDER 

POUR OKDIMATEUR Tl 99/4A 


Un logiciel francais pour Tl 99 
qui sort del'ordinaire! 

De I'habilete et des fellexes vous seront 

necessaires pour (ranchir les 25 etapes 

du ieu Une veritable simulation de conduce 

de vaisseau spatial 

Preseniahon en hauie resolution Regies du 

jeu mcluses dans le programme 5 paysages 

dilferenis. Synihedseur vocal oplionnol 

Carburant hmite 100% nonagressif 

2 programmes de 1 3.5 K en oasic eienou 

chamessur cassette 

Envoyez un cneque de 95 F a 

Club Micro-lntormatique. 72, rue des Landes, 

78400 CHATOU 

Pour les 5 D'emieres demandes. 

■ '■■'■' ''.■' :-'■■.' IV 1; ",'LJ 









.. : ' ;-.■•? -. 



1210 FOR 1-22 ro 28 

1220 CALL VCHARI6, 1,131,7) 

1230 NEXT I 

1240 FOR 1-10 TO 12 

1230 CALL MCMflRI 1,22, 140.71 

1260 NEXT I 

1270 RETURN 

1280 REM ••..••».......... 



VUE DE CEJ 



J CALL 9CHAR{X-2,Y-1,B1J 
'> CALL GCMAR'):-2,Y,B2) 
1 CALL GCHftR!X-2,X*I,B3) 
'J CALL GCMARIX-l,y-l.B4l 

> CALL GCHAR < X- ! , Y, B5> 

J CALL GCHAft(X-l,Y+I,B6) 
1 CALL GCHAR(X,Y-I ,B7) 
) CALL GCHAR(X,r+I.B8) 

> G0SUB 1200 

) CALL MCMAR(3, 23,781 

> CALL HCHAR(13,25,837 

> CALL HCHARI9.21.69) 

> CALL MCHARt9,29,79> 
• GOTO 2020 



■ B90 ' ALI SOUND (500. 5,0 

1900 GOTO 740 

1910 REM ••, 

• VUE BU FLAN 

1920 NB-NB*I 

1930 IF N8>3 THEN 1 B90 

1940 CALL COL0R(9,9.1l 

1930 FOR 1-1 TO 700 

I960 NEXT I 

1970 CALL C0L0R19.1.1J 

19B0 GOTO 740 

1990 REM ••* * 

20OO REM DESS1N DES MURS 

2010 REM ».....*••#••«..,.. 

2O20 IF Bt-IOO THEN 2030 ELSE 20 

40 

2O30 G05UB 2270 

2040 IF B3-100 THEN 2050 ELSE 20 



* VUE DE tXJ 


1440 CALL GCHAR 


K*2 , V* 1 . Bl ) 


1450 CALL OCHAR 


X*2,Y.B2> 


1460 CALL GCHAR 


K+2,V-1,B31 


1470 CALL BCHAfl 


X*1.Y*I,B41 


1480 CALL GCHAR 


(+I,Y,BO) 


1490 CALL GCHAR 


ci ,Y-1.B6) 


15O0 CAI ' 


r.fx.nv, 


1 '. GCHAR 


K.Y-1.B91 


OBUB 1200 




1930 CALL HCHAR 


5,75,83) 


1540 CALL HCHAR 


! [, 9, ' 1 


CAU HCHAR 


9, .'1 . M) 


ISM) CAUL HCMAR 


9 . 29 . 69 1 


1370 GOTO 2020 




I960 REM ,#,.•• 




• VUE -DE CD) 





30 ELSE 21 



'" i-t :;i i 



]■//'■ CAI i BCHAR4 ' i . /».■.!.' 
1600 CALI m WMi (,Y+2, B2) 
16IO CALL GCHAR(X«I , Y«2.8: 
: •.. '■ CAI I. riCHARIX-l.YM , if 
1630 CALL BCHARfX, '• J ,891 
1640 CALL BCHAftfX+l,Y*(,R 
■ i " l.'.D'/l 



. ■■:■■■ 


CALL 


VCHAR 


8. 


73. 


1*4.3) 


2310 


RETUF.N 








2320 


FOR 


-24 TO 26 




2330 


CM 


VCMAR 






44.3) 


2340 


NE<T 


I 








2350 


RETURN 








2360 


CALL 


HCHAR (8 


76, 


1281 


2370 


CM ■ 


HCHAR 


9 




1301 


2380 


CALL 


HCHAR 


K'.-e 


,137 


. ■■•■:• 


CALL 


VCHAR 


H 


*'!. 


144.3! 




RETURN 








24 1 


CALL 


HCHAR 




-' 3 . 


129) 


242t 


CALL 


VCHAR 


B 


23, 


130,3> 




CALL 




1 




, 136) 


.^.:. 


CALL 


VCHAF 


1 


22, 


144.5) 




RETURN 








2460 


FOR 


-7 TO 


I 






■'470 


CALL 


HCHAR 






144.3? 


2480 


NEXT 


I 








.■-'■-■■ 


RETURN 








2900 


CALL 


HCHAR 




77, 


178' 


. ::, ! ■ ■ 


CALL 


VCHAR 


H 


'■''. 


: 


2920 


CALL 


HCHAR 


1 


.-:> 


,137) 


Z9S0 


CALL 


■ 


7 




144.3) 


ZS40 


RETURN 








2950 


• 


1 ■ 




. . 


: ■ 




CAI ; 


■ 




■ . 


2570 


CALL 




i; 


. 


. 


J580 












2390 


CAI . 




-. 


•a. 


. . ; 






■ 


7 


■ 


: . ■ 






■ 




. 


. ; " ■ 




■ 








- 


.-, 


. 


. 




. 


■■ 








■ 




:■ ', ■ 


. . 


2690 




COLOR 


I 


. i 




■ ■ ■ 






■i . . ., ■ ,. 


304 1 
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i; 
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■ 












■ 


. 


H ■ ..i 


9, 


.. 


I . .-] i 


■ ■ ■ 


■ : 






. ■ 


: 


■ 


- 












. 


. 


i 






A 


i 




... 








I< 


■ 




■ ■ 


■ 01 


I 1 








1 ..1 i 


ll 


■■ 


■ ■ i 



■ ..... : . ,-eoia !pw 'i i 

, i ■,.... i 

'■"" I II' . ■■■'■! | 

■■"' Rl 112, "41 P7P7I 

■■... 11 . I . I .',.,,. 

CALI CHAR I I 14," '0 'C7I M «| | | 

'■'■ ■'■ I113.-0I El 

CALL HCMARI8.23. 1-J4) 
CALL HCHAR (8, 7/., 108) 
CALL HCHAR<9,29, 106) 
CAll HCHAR (9, 26, 107) 

CAI. I HCMrtR* [-.,. --,. ] i.., 
1-lA l HCHAR < l". J',. [ l ;.> 
CALL HCHAR 'I 1,29, 114) 
CAI l HCHARI l l ,26, I 191 
CAI i i C r<4,QM ,A H» 

li AS EN .■"•'■"■ 

II DM a IN 2930 El Si-: 8r. 



CEOI 
2800 
COS 

toco* 

2B20 
2B30 
7840 
2850 
2860 
2B70 
7BB0 
ZB9l ■ 
29O0 
2910 
2920 



■ i | Af 
2940 cai t. SCREEN (9) 
2990 DR I -I 10 8 
. 960 CM i CO DRlt, 16. 1 ) 

2970 NEXT I 

T^OO PRINT "LA CUE VOUS REHERC] 

E DE VOtRL EFF I l.r.L 1 IE. " 

2990 PRINT -VOUS VENE/ t.'t BAUVER 

SON AVEN1R ENLRfjETlUUE. " 

30OO PftlNT :i"UNE AUTRE REflERVI 
D'ENERGIE EST NEMACEE DANS LI BE 
CTEUR"! INT(RND«I 
3)*1 

•mi., INPUT "ACCEPTEZ VOUB voire 
NOUVELLEmSBIOH 
ENTRER O/N: 



i :t 



60 

2230 GOHUB 2720 

2260 GOTO 740 

2270 CALL HCHARIFI, 24, 129) 

22BO CALL HCHAR<9.V4. ISO) 

2290 CALL HCHAR ( IO, 24, 1361 



'...■" 


IF I»--0" 


lit n U) 




1030 


f /.I ! 


Mr: Mm-: 


1,1. 144,768) 




■•,1 l.tiTII -1" 






3030 
SO60 


END 

niM 
or a 








. i AS) 














[070 


CM 1 


COLOR 


10,9, 16) 








i.i ii OR 


1 1,9,2) 




J09O 


Mil 1 


i.ii.n. . 


04, "6C2En B7I ' 671 


IOFI 










■ 100 


CALL 


CHARM 12,' 




•l.ll.f. 










■■ 1 1 


CALL 


HCHAR 


9, .".. 104) 




m .:•' 


CAU 


1 CHAR 


10,29, i 12) 




'i 


i in- 


-1 in 


173 




3140 


CALI. 


KEY (4 


Q.AI 




SI SO 


IF A 


IHEN 1170 





31 70 NEXT I 






3 I BO GOTO 3920 






3190 FOR 1-1 TO IO 






320O CALL SOUN0(50.-3.0> 






32IO NEXT I 






3220 CALL MCHAR(9, 25. 131 ) 






3230 CALL (CHAR<I0.25. 140 






3240 ER6-ERG-5 






3250 PTS-F-TS-3 






S260 CALL GCHARH.Y.2. 711 






J270 IF ZI-101 THEN 32SO 


el;- 


S3 








32SO CALL HCHA* 1 - 






3290 GOTO 740 












■-! IF 12-101 TMTN 3320 












L HCHARI ". v-7.7-7 






ro 7*.;. 






■.... 






■ li : ■■■:■.; rnCN 3360 


a SC 




BO 






. ■ . . 






OTO 740 






■ . ■ . ■ 






HEN 3400 


1 1 BE 


-.4 


■ ■ ■ ■ 






: 






: • 







■ ■ 
■44i.' C---J.L COLOR (11.9, 
3490 CAi i 

■■ 

I . 
■ 
S470 CALI CHAR4 106, 

■ . ■. 
■ 

I ■ 
1 
Oil ■ 

■ ..■ 

■ 

■ . ■ 

I! II ■ 

■ 

■ .; ■ : 

■.■:■ ,23, I 
... 

..i ,29, u; 

. i 
,1141 

bOO HI '"■'■ 

i : ■ 

■ ■ 1,0. A 
■. 

. .,. . ;..- -,< ■, 

.1 ■ l l 

"'.■■ 

670 FOI It Hi |m 

50, 9.0) 
:.' '1 I 

■ ICHARta, 3, 131, I 

,29. 131,21 
HI i"-i ■ !■'..'.. l l". 21 

■ ■■" imi i HCHAR 1 i i .25. 140.2) 
■i i i , , i i ■ i , ' , 

■ i 

1 ' IX, 

on i-ioi 

■ 'SO I -'I i hi HAH ■.■■'.. 
* ■'■-' un l 

■;i ;m i li ■ ■ . ■ 

'M II lOI THEN .i ■■ i i i Q 

H320 CM i HCHtKI - . ■ i . 

■■ I .■ '40 

S840 f.'iLL BCHAR<X+I,Y.Z3I 

...... I ■ I 

tS60 i ..i i iii ■ " i . ■ . 

(670 SOTO MO 

BSO CA ■ • 1,Y,24) 

:o9" IF 14*101 rHEH "'"'" ELEfl 

10 

5900 <:oi i HCHARI X-l.Y, 

1910 BOTO 'i" 

''. il ri •.. 



PERDU' 



J9 '" i OR i '. in 16 

,,j 'i bi m iniii 

1990 i mi i BOUND! I". I 10,0) 
I960 'ii ■ > i 

97 ii CLEM 

■'ii- ' ii 13,2,11 

1990 CM i I in 0R(4,: . i .■ 

■l .INI "VOTRI UNIVI M INTEI I 

i in, i Bl I'l mini. " 
4010 • R1N1 -i nl'i- M i ■<■■ ■■'.■Mil Rl 
ir.M VOTRI rtlSBION, VOUB Bl Rl 

i>l FftOORAHHJ . 

4020 i-RIMi 'i m i UNI i ION Bum mi 

VOU NO, - 

4030 PR INI l* "LA CITI VOUB 01 i Rl 
i A i nSBlBIl I H i» BAUVI '■■ 

'.'IF-, ' II I 'II fSi" 
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DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus! 
Rien de bien original dans cetle 
formule. pourtant nous es- 
sayons de laire quelque chose 
de ditterent : nous organisons 
un concours permanent (ous 
les mois et tous les trimestres ! 
Etavecdes prix dignesdes pro- 
grammes que vous atlez nous 
••nvoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leur» programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage. HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
JRIGINAUXetFRANCAlSSi 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cial! stes vous dira comment 
lameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour panictper. il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement 

ART 1 HEBDOGICIEL organise 
de tacon mensuelle et inmes- 
Inelle un concours dote de pnx 
recompensant le meilleur logi- 
ciel du mois et du tnmestre 
ART 2 Ce concourses! ouverta 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise L'envoi dun logiciel en 
K7 ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitemenl suf de- 



mands par la redaction de noire 
journal constitue lacte de can- 
didature 

ART 3 La redaction d'HEBDO* 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite el de longinalite les logi- 
ciela qui sont publies dans le 
journal 

ART 4 Ce sont les lecteurs qui. 
par leur vote, determment les 
meilleurs logictels mensuel el 
tnmestnel 

ART 5 Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART 6 Le prix alloue pour le 
concours tnmestnel sera remis 
au plus tard un mois apres la clo- 
ture du concours tnmestnel. 
ART 7 Le present reglement a 
ete depose; chez Maiire Jauna- 
tre. i.ruedesHaiies 75001 Pans 
ARTS HEBDOGICIEL se reser- 



ve le droit d'mterrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27 rue du Gal 

FOY - 75008 PARIS 



Sera declare gagnant le pro- 
gramme qui aura obtenu leplus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi. pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Norn 

Prenom 

Age Profession 

Adresse 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare etre Tauteurdece programme qui n est ni une 
copie d'un programme existant Ce programme reste ma propnete et 
I'aulonse HEBDOGICIEL a le pubtier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupeei 

Signature obhgatoire 

(Signature des parents pour les mineursi 

Le programme doit etre expedie sur support magr icuque (cassette ou 
dtsquette) accompagne d'un descnp tif detaiiie du mate ri'? 
d'une notice d'utilisation d u progr amme Les supports det pi 
mes publies sont conserves , n oubliez done pas d en (aire une cooie. 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAJTENT FAIRE 
PUBL1ER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emplot, listings et bon de parti- 
cipation dans une meme enve- 
ioppe. 

Vous oouvez nous envoyer piu- 
Sieurs programmes sur un meme 
r1 en I'mdiquant sur votre 
Bon de Participation 

• N'oubliez pas et ceci est tres 
important d'msenre sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM, votre nom. le nom du pro- 
gramme et le matenel auquel il est 



des'me Nous pourrons ainsi re- 
perer faciiement les listings, une 
10's sortis de limprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement atfferents votre pro- 
gramme Nous aurons plus de 
chance darnver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se complete et votre numero de 
telephone (si vous en avez un) 

• Pour tout envoi tel que "petites 
annonces", "abonnement" et 
"programmes" specifier sur vos 
enveloppes I'objet de votre cour- 



Ne nous envoyez plus d'envelop- 
pes timbrees. mettez simplement 
les timbres joints a voire envoi 

• Expliquez les particulantes de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs 

• Vule nombre important de pro- 
grammes similaires que nous re- 
cevons, evitez de nous envoyez 
les jeux suivants : BIORYTHMES. 
MASTERMIND. RENDU. TOUR DE 
HANOI, CALENDRIER. BATAILLE 
NAVALE. POKER. JACKPOT, 
BOWLING. BLACK JACK. LABY- 
RINTHE. MEMORY SIMON. 421, 
OTHELLO, SOLITAIRE. LOTO 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOG1CIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



DDI OFFRE CINO CASSETTES 
DATA OR VIERGES AU MEIL- 
LEUR PROGRAMME DE CHA- 
QUE CATEGORIE. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON, 



Les editions du CAGIRE oflrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle" de Janick TAILLANDIER. 



LE YETI ATTAQUE 



z% 8A 



On vous I'avait pourtant dit qu'il ne fallait pas aller dans 

cette montagne pour chercher le YETI... 

Ah, e'est malin... maintenant, vous I'avez trouve... 

... et rendu furieux... 

Depuis deux jours, il vous pouchasse et vous bombarde 

avec tout ce qui lui tombe sous la main : rochers, maisons, 

arbres... Tout y passe... 

Et a chaquefois vous devez vous sauver puis escaiaderou 

degager les projectiles. Attention, un rocher peut empe- 

cher de reculer. 

Mefiez-vous des arbres que YETI lance comme des 

f leches... 

Gilbert BOUDOT 




. .U""IL Ne FfiLLBIT 
PRS BLLEP DANS CETTE I1GNTBGNEPG 

ur cmercmer le mSm 

"35 PRINT ,," Bh, C'"C5T 

MRLIN. . . '■ , "MRINTEnhNT ,'jGuS L" - '»U 
CZ TROUUE... ...ET RENDU FIjRI 

EUX. . . - 

i-: PRINT , , DEPUIS DEUX JOURS, 
IL U0US PGUR-CMBSSE ET VOUS BOM 

esRDe fluec tout ce oui lui to 
HUE SOUS LA" 

*5 PRINT "MfilN ROCmERS.MBISON 
S.ORBRES... TOUT if PASSE..." 

58 PRINT -ET R CMPOUC F0IS U0U 

s oeuez uousssuueh puis escalade 

R 0U OEGBGEPLES PROJECTILES. RTT 
ENT ION, UM- 
BO PRINT "POCmEB PEUT EMPECMER 
DE RECULER' 1 
58 SL0U 

60 POKE 164*2.4. 
65 PfilNT '■ 

PRE 

73 TriNKCri'"" THEN GOTO 79 
75 CLS 



MES. . . 

85 PRINT ,,,,,, "IL RESTE ENCOR 
E CETTC PflSSEnELLEB FRBNCMIB, MR 
IS UOUS ETES • 



45 EN FORME', 
->TPE5 FflTI&i 
95 PRINT , , _- - 
PPESGUE M0RT DE FRTIGUE 
99 GOTO 113 
tea rem XZHEa 




iFBTICUE" 
EPUISE", , , ,"■ 



ias cls 

119 LET G«N0T PI 

120 PRINT ,,"DBNS OUEL ETBT ETE 
S-UOUS POUB TRAVERSER LB PBSSE 
BELLE ■><% fl 5) " 



OR CODE N«>33 



1*9 IF CODE N«<2! 
TMEN GOTO 130 

IBB LET N- (6-UBL 

188 POINT ,,,N» 
173 FOB I«6 TO 81 

189 NEXT " 
34.9 REM 
ssa LET 
269 LET M«. <^^J^T« 
279 LET Of »■&-' 
208 LET Km*. 

2^8 ClS ■ 

iz% rem HHHBB 

3B5 FHST 

31B FOB 1-0 TO ltt 

32B PRINT BT I,0,MS(8-I/3 TO 
AT I, 38-1/3. M«ri TO 2.1/3) 

53B NBXT I _ 

34.B PRINT BT 2B , «, " I I <1 'A I 



358 PRI 



Be 11, 



J3W f-Miin ino AA, 

369 PRINT BT 11,0; 

36B SLOU 

378 FOR I"B TO 26 

388 PRINT BT 12,1, 



(IUEfiU 



LET L-6.INT IRN0»aei 

LET X.L 

LET D.O 

LET P.l.INT (RND»6I 

LET 0»1*INT (RND*6I 

IF G<5 TMEN GOTO 4,59 

LET R«(P) »"U" 

LET r -- 

LET ■ 
LET 




~ to ■ 



699 LET K=C.»N/3» i 1* 
I INKeYf»"8' ■ -N/BOXOl 

fJKEv«.'-S"; 
708 PCM I 
719 FOR .. 
728 PRINT BT 11, INT 

?ae NE 

aea pe 

819 IF 
829 IF -J 
838 IF K 
OTO 939 
8*9 FOB 
858 FfiST 
869 SlOL 
879 NEXT . 
869 GOTO 4,8 
9B8 REM K^ 
919 PRINT 
19.24, 




BTIC ? 10/N1 ' 

972 IF INKEYf* 

974, IF INKiYfa 

976 GOTO «72 

968 PRINT AT 29,0, " 

",BT 21,0, "0 
0HMBGC...B LB PROCHBINE F0I5..." 

999 GOTO 998 
1B89 SOUE "VCTLBTTBOUC 1" 
1189 RUN 

I2B9 RftND USP 18282*22176* IPCEK 
16369-118! ' 

1219 REM " 

1220 RUN 



539 
lid 



JH 


















LET ( 


-U*G 














• 20 


PR IN] 

PCM 6 







559 LET TdTTpeTk XXa 

655 LET aft| ., pzzr '. -"■/: 

66e rem Vg^-ffyiwm ; M 

679 LET XQ-IPHK (XX 

675 LET 0G«(PEEK ixx 

677 LET T* 

689 REM I 



SOLUTION DE L'HIPPOREBUS : 












&z 


[0 


ID!; [»1 


K.l 


a 




wVJ 




i 








*^rf,j 


>0 


PRINT CHR*(X) 




i\^5j) 


(0 


il 








\A// 


50 


1 ND 








£& 


i0 


DAI A 6S 


>9 


■ 


1 !, 


j 




77 




' 




l ■ 



SCRABBLE 



Jouez au SCRABBLE entre amis.. Vous n'avez plus 
besoin que de voire dictionnaire, le programme 
s'occupe du reste t 
Mode d'emploi dans le programme. 



Bruno HENRY 



M\Z 8 ° 








tee pr:n~ o 




■ ■ . 


"" ' " 


■ ■ 

■ ■ 


l SCRflBBLt •" 


■ ■ 
I ■ ■ 


ttittilll'itili'ti 


iM Gost-8 ?see 




i?» REn 






partie 


a seea 




240 FOR KS-I TO rw 
250 Ai.A*C«*) - ?« 


•i*(KK) 1 X«-X«CKK) 


269 CURSOR S3, 5 6 ' 


PRINT 'TOUR e» •■" 


278 CURSOR 32.18 - 


PRINT n 


288 CURSOR 32,18 - 
298 CURSOR 32,19 ' 


PRINT N*CKK) 

PRINT "E3E3E3E3E3E3E 


388 G0SU8 isae 




310 CURSOR 8S.2Q 


: PRINT * 


320 CURSOR IS, 19 


; PRINT "CID8D80B080BD 


339 CURSOR 15,28 


; PRINT "CI 05 


3*8 CURSOR IS, 21 


; PRINT *C1C2C2C2C2C2t: 


2C2C2C20S- 




358 CURSOR 17.28 


: PRINT X« 


388 CURSOR 8,23 


l PRINT ' 


RSOR 8,23 


I INPUT " SOLUTION 1" I 



1648 



'182 



398 IF ;«■'-■' G0SU8 7888 

338 IF W"*l* GOTO 318 

488 IF *i-"B0- THEN ?«='- :GOSUB 1888 
GOIO 788 

4 18 G0SU8 I8B8 

428 PRINT I IF 0*8 GOTO 310 

438 CURSOR 0.23 J PRINT ' LIGNE »t CCft 
ONNE : 

448 CURSOR 28,23 1 INPUT LI* 

«SB LI-UALCLU) 

460 IF CLKI )«(LI) IS) GOTO 540 

178 CURSOR 26,23 I IMPUT CO* 

488 CC-UALCC04) 

498 IF tC0<IXCC0>15) GOTO 548 

508 IF L£NC2«)>t GOTO 5S9 

S|0 GOSUB 2800 

520 JF Tn-8 GOTO S4B 

530 goto eee 

548 GOSUB 6588 ■ GOTO 438 



558 CURSOR 88,23 



mv 



" M ( 



568 FOR I-l TO 288 I NEXT i 



570 GET NU« 


IF HU*-'" GOTO 57B 


588 Cursor bb,23 i 


PRINT " 


590 IF hWO'H' 


GOTO 628 


888 IF CO'L£Nl*t» 


IS GOTO 058 


818 GOSUB 2SBB 


GOTO 660 


820 IF HIMO'U' 


GOTO S50 


638 If L1-LEnC**)> 


16 GOTO 658 


648 GOSUB 4880 


GOTO 660 


650 0OSUB 6500 : 


GOTO 318 


668 CURSOR 8,23 J 


PRINT Tni" F"o;r>i« 


870 IF hMi-"U" 


GOSUB 5208 


6B8 IF HW*'M" 


GOSUB 3708 


898 IF JE«- 'tf 


GOTO 310 


700 If m >ll -- . ■ 


"n 


210 CURSOR n, -i< if* ■ PRINT IF(KK) 


■l -- l -I. -• . /I ! >ltfK)-XI 


738 IF tP*»STRINM 


. |03 |J*(|M ) 1 


■0 3888 




4Q ■.. .- .- 




758 GOIO 740 




708 R*;n 








■ ■ ■ 


■ ■■ E»] 




;-..-,■ m -' 




;i !«•■ goto 


I l?0 


'BSe FOR I- J ■ 




■■ ■ ■.. ■■« . 




M ■'. ■' K.I, 


■ • 


; M TO LA 




■l l| .1. .,4 


tO 1140 


.-.■ ■. ■ 




1110 G'B 




b esaa 




i 178 




40 M . ■ ■ i ..« , 


, - f ; ■ ,- . - t ." ■ . « . ■. 


■ 156 ■•■.-' , 




1188 li-i 




170 CUC ■ 


■ . ■ 


1 >■ - .-■:■ 


I PRINT A« 


• .OH 5,28 


T 


■■ ■ ■■■ 




' .•.:■ - ■ 





I FOR 1=1 TO N 

! IF f110«CP*,P. I J J "0" GOTO 1600 

( P-P-1 i IF P-8 GOTO 1780 

I GOTO 1578 

! U*»U»tnlO»tL«,P,1) 

! P*-L£FT«(P«,P-'l)*T"'RICiH7»[P*,182 



1828 t 
1838 i 
1648 F 

1858 

16C8 
1878 



P-lNTUB2iRNDCI)Xl 

IF niD«(P*,P, I )"-!" GOTO I6SB 

U«-U«*MID*CL«,P, I) 

P<-LEFT«(P*,P-1)'"1'*RJGMT«CP«,182 



1090 NEXT I 



1728 RETURN 



2000 

2010 
2020 






cohf 


Ti^GE 1 LETTRE 


TH-B ■■ 


TU=B : 


Tn-9 




2030 


XL*] I 


xn-i 






7010 


IF SCLI,C0)>63 


THEN 


RETURN 


2050 


IF SCL 1, COW 


THEN 


XL-2 


2060 


IF SU 


I, COW 


Then 


X1.-3 


2070 


IF SCL 


J,C0)-12 


Then 


xn-2 


2000 


if sa 


I,C0)-13 


THEN 


xn-3 


2030 


PL-ULtASCC2«)' 


63) 




2110 


GOSUB 


ssee 






2120 


CI=COi 


i 






2138 


GOSUB 


6888 






2140 


nW>"L 








21S0 


GOSUB 


ssee 






2100 


LI ■(. I< 


i 






2170 


GOSUB 


8888 






21 SB 


IF TH< 


:tu then 


:u»Tu*xn 


2130 


IF TM) 


tu Then 


TH-TH*XT1 


22B0 


IF CTF 


1-BXtTU- 


BJ 8OT0 2228 


2710 


TH-THi 


PL 






2220 


Tn-TH-i 


TU*PL*XL 


»xn 




2230 


RETURN 






2240 
2500 


REn 












COPPTAGE HORI20NTAI 


2520 


xn-i 


: TH-8 1 


TD-0 


1 C1»C0 


2530 


GOSUB 


3580 






2540 


CI-CO- 


■1 






2550 


FOR U> 


•1 TO L 






2300 


Cl-Cl- 


'I ■■ XL*I 






757B 


IF SCI 


.1,01X6' 


■ GOTO 


2088 


2568 


TH-TH- 


■ULCSCLI, 


CN-C3) 


2598 


GOTO 2568 






7C00 


IF SCI 


.1,CI)-I3 THEN 


zn-3 


2018 


IF SCLI,Cl)-l2 InCN 


xn-7 


7G20 


If sai,cn-3 


TMEN 


>L»3 


26?0 


Ir SCL 


.i,CI 1*2 


TH..ri 


>»-2 


2f40 


TH-TH' 


■L'LCASCl.' 


110* C! 




7858 


NET u 






2600 


GOSUB 


6000 






7878 


CI -CO 


1 






7680 


FOR .' 


• 1 '.0 t 







27^8 
7750 
2760 
277B 
7788 

7798 
2888 
78 I fl 
2828 



I ; , ,,-,-. BOTO '' ■ 
005US 'IjC8 
I-" TU'O BOTO I ft' 

a 

IF StL;,C! }-|0*M1 GOTO 7i~. 

"rt-Tn- I !'..-:'! )*( •'' 
XN-| 



TNVTnfTH.Wfl 

IF L»7 THEN Tn-Tfl-50 
RETURN 



; >-. , . . LI rTRES 



■:-,:v 




MORIEON'KI i PO B - " 1 *' '■ 


MM 


xf-i 


TU-0 1 Pl-B 




3838 


If LI- 


■1 GOTO 3888 




3848 


FOR Li 


-l.i-1 TO I 




11' l! 


JF SCI 


1 ,C I KOI GOTO 3880 




m e 


TU-TU- 


ULCSCLI. CI )-63) 




lli.-H 


NEXT I 






3088 


IF LJ. 


■15 GOTO 3138 




3030 


FOR Ll 


•Lltl TO 15 




■ .::■ 


IF SCLI,CI)<64 GOTO 3138 




31 10 


TU-1U- 


■M ( -.,i |jCl 1-831 




3120 


NEXT I 


.1 




3130 


PL-ULI 


,nscLnio«a*.u, i ))-03) 




3148 


RETURN 




■:..-y 


REn 








■■■■ 0NNI RIE HORIZON 


m i 



3548 CI-CI-1 

3558 IF StLI,C))>45 GOTO 3540 

3560 SCLI,Cl)-PSCCflI0*C2«,U,1)) 

3580 NEXT U 

3596 RETURN 

3688 REP 

3788 Bfl ""—" — ■ imwmmm ■ 
irVRESSlON H0RI20NTRLE SlrtPI 

3718 RF_n---- — "—--■— "-••■■■•■" 

3720 Cl-CO-i 

3738 FOR U»l TO L 

3748 CI=CI'I 

3756 IF SCLI.CD74S GOTO 3746 

3768 CURSOR CI*3,L]'2 ■■ PRINT n!0*<* 
.1) 

3778 NEXT U 

3768 CURSOR 15,23 : PRINT "E«t c« qui 
a va ? " 

3738 GET JE* ' IF JE«-'" GOTO 3790 

3888 IF JE»« , 'N" GOSUB 3588 :GOT0 391 

3B18 CURSOR 4,Lli7 

3620 FOR CO-1 TO IS 

3830 IF SCL1,C0)-I3 THEN PRINT "*" I 
OTO 3898 

3640 IF SCLI,C0)-12 TMEN PRINT "'*! 
OTO 3890 

3650 IF SCL],C0)"1 TMEN PRINT " "i 
OTO 3690 

3660 IF SCL],C0)=2 TMEN PRINT " . " 1 
OTO 3698 

3678 IF SCL1.C0J-3 TMEN PRINT ">"; 
OTO 3890 

3688 PRINT CHR*[S(LI,CO)); 

3838 NEXT CD 

3988 RETURN 

3910 REM 

4088 REn-*««»" —•'>—•"• •** — •• 
C^nPTflGE UtRTICi 

4818 REn--"—— —«•««-— —" 

4070 W"1 I TU-8 1 TH-B - Ll*L! 



4030 


G0SU8 5580 


4848 


L1*LI-1 


4050 


FOR U»l TO L 


4000 


L1-LU1 i XL=l 


487B 

4888 


IF SCL1.C0X64 GOTO 4 1 BB 
TU-TUtULCSCLl. CO)- 63) 


4830 
4100 

41 IB 
4128 


GuTO «B8B 

IF SCL1,C0)-|3 TMEN X"-3 
Ir" SCL|,CJ)-I2 TUCK Xfl*2 
lF SCLl.COJ-3 THEN XL»3 


i lie 

4148 


IF SCL!,C0)-2 THEN yi .? 
TL'-7^-ULt1S-CniO*.'7*.U. 1)>-83)«M. 


4 1 J0 

4168 


NEXT U 

IF LK15 GOSUB 6B8B 


4|>8 
4 180 


L1HLI-I 

FOR u-l TO I 


4190 

4jee 
«7ie 

4226 


LI-LI'1 

IT Sf,LI,C0)>63 GOTO 4 1 SB 

G0SU3 4 see 

IF 1M"» liOTJ 4268 


473B 
4248 


If TU»>TH GOTO 4278 

JF SCL1,C0)-lB<Xn GOTO 4270 


42R8 


Tn»Tn*CTN'Pl-)iCXil-l ) 


4200 

4270 
4780 
4230 
43B0 


Tn-in'TM'PL 

NEXT L, 

Tn-Tn*To*>n 

IF L-7 THEN T(1- ii1+58 


431B 


RETURN 


4320 


REM 




UERTICfiLE .'OtJR CR0ISEF1ENT 



a' »1 I TH-8 -' PL-0 

If CJ-I G0T3 450B 

FOR CI -CO-1 TO I STEP -I 

IF SCL1.C1X64 GOTO 4568 

TH»TN*ULCfi(L!,C))-M) 

nex: ci 

If CO-15 GOIO 4830 
FOR Cl-COtl TO 15 
IF SCL I ,C) XG4 GOTO 463B 
TH-TH-UI.CSCL1 ,Cl )-63) 
NEXT Cl 

i3-uLCflsccnio«a«.u,i))-03) 

RETURN 
REn 



REn-- 



4078 
4038 

4848 
«6M 
5801! 

5018 > 
5028 t 
5038 I 
5B»0 I 

5850 . 

I!l I- 

MSB NCX1 U 

581)8 RETURN 



Pflf-ONNtRIC ULRTlCflLE 



52 10 
5220 
5738 
5740 
1258 



inPREWlON UERTIC«LF 6101 I I 
fl£,i » »»-»..»—.—«— 

FOR u-i tu I 

L I -L I ♦ I 

IF SCU,C0)>4S GOTO 5240 

:lrspr :0*3,L1»2 I PRINT nlD»U».U 



RINT "E41 ct qu# C 
o «a 7 " 

5230 GET JE« i IF JE*-"" GOTO 5290 

5388 IF jE*<>'*" GOSUB 5800 ;G010 5488 

S31B r 0R LI-I TO 15 

532B CURSOR C0<3,LIt7 

5338 IF SCLI,C0)-l3 TMEN PRINT **"i ' G 
OTO 5338 

5348 IF SCLI,C0)-I7 THEN PRINT "* n l : G 
OTO 5338 



53SB IF SILI,C0)-1 
OTO 5398 

5380 IF SCL], COW 
OTO 5338 

5370 IF SCL!,C0)-3 
OTO 5390 

5380 PRINT CHR«CSCl 

5390 NEX! LI 

5480 RETURN 

5410 REn 

^588 RQIawowmnvn 



THEN PRINT 



BE^U-'ERflT.'ON T PLACE 
5510 REtt— —"»"-"—— — — ■ — 

552B Cl-CO i LI-LI 

5530 IF nV8«*H' GOIO 5538 

5540 If L1-1 THEN RETURN 

5550 :f SCL1-1.C0X63 THTN RETURN 

5580 TU-TWiULCSCLI- I ,C0)-63) 

557B LI-LI- 1 

5588 GOIO S540 

5590 If Cl-l THEN RETURN 

5600 If SCLI.CI-IXG4 1MEN RETURN 

5810 TH-TN»ULCSCLI,C|-l)-83) 

582B Cl-Cl-I 

5630 GOTO 5530 

5t40 REn 

O00P REn-*----— •*•.---.------••«"-• 

RECUPEROTION OF.RNIERE PLACE 

6810 REn------ ....... .-.--•--••-« 

082B If HUt'-H 1 ' GOTO 6BBB 
0838 1. 1-L1.1 



6840 


IT L)>IS THEN RETURN 


6058 


IF SCLI.COX03 THEN RETURN 


888B 


TU-TUi ULCSCLI, COJ-03) 


6B78 


GOTO 6038 


0068 


C1-C1-M 


8898 


JF Cl> 15 THCN RF.1I1RN 


CI 00 


If SCI I.CIX63 THEN RETURN 


0110 


TH-TH*uL<SCLI,tl )-63) 


6120 


GOTO 60B0 


6130 
6588 

0510 
6520 


REn 


CAS 0-ERRf.UR 


CURSOR 3,19 l PRINT "ERREUR III" 


8530 


nUSIC "-C0- 


0540 


FOR 1-1 TO 1880 1 NEXT I 


6558 


CURSOR 3,13 j PRINT " 


8508 


RETURN 


0570 
7B80 

7010 
7876 


REn 


CMANOCnENT OE I.ETTRF 


CURSOR B,Z3 


7030 


PRINT ■' «iu«M» linn voul«*-uoui 


chorij»r ?'' 


7035 


fOR J-i TO 7B0 i NEXT I 


7848 


GET NL« l IF NL*--" OOTO 7840 


7845 


PRINT "■ 


7050 


fOR 1-1 TO 7 


7068 


JF NL«<>nlO*CX», J, 1 ) GOTO 7030 


7070 


Xi-L£n«(X4, 1-1 )'RIGNT«(X«,7- I ) 


7088 


OOTO 7110 


7890 


NEX I 1 


7180 


GOSUB 6588 1 *«-■' 1" l RE1NRN 


71 10 


fOR I-l TO 107 


7120 


IF NL4onl0*(l*, 1. 1 ) GOTO 7148 


7130 


IF nlC)*CP4,], |)--r GOTO 7168 


7140 


NEXT I 


7150 


0OSUB 6580 i !•■■!• ■■ RETURN 


7180 


PM.II I<IC«,I.|)."B".RIGHHCP«.I07 


-I) 




7170 


(»-"1" ■ M-X4 


7160 


GOSUB 1508 


7190 


«- "88" 


77BB 


RETURN 


7718 
7508 

7510 
7520 


REn 


INITIALISATION 


INPUT "BIUBU NOnttRE «. JOUEURS *v 


P I"1NJ 


7530 


oin a«(njj , Nil n.i) , m(7] 


7340 


DIH t$tTU) , TrCNJ) , AA»C27) 


7558 


Din X«(NJ) , ULC77I . '■( I3i IS) 


7588 


FOR I-l TU Nj 


7578 


PRINT -BNOn au JOULUR A""lll" '"1 


7568 


INPUT N*{|) 


ntz 


N«CI)-LEFIiCNiII),7J 






?610 


next i Suite pogi 


7678 


PRINT "Ml" 


7038 


PRINT -B . ]t\\rt cofl.pt. i.iH-i.l. 



ISOLA 



Vous devez isoler le pion de I'ordinateur en detrui- 
sant une par une les cases autour de lui. Bien evi- 
demment il ne faut pas vous laisser prendre votre 
pion. C'est un jeu oil aucune faute n'esl admise et 
n'essayez pas de tricher, I'ordinateur n'accepte- 
rait pas votre coup. Cejeu se deroule sur une grille 
de 8 x 8 mais une extension 16K permettra (aux 
heureux veinards) d'avoir une grille de 16 x 16 en 
modifiant les tableaux du programme. 



J.M. TOURBE 



to 




11 



-ISOLA 



13 CLS:SCPEEN0.2. 1 

20 rtTTPBl. 1 

22 FORX-0TO18 

30 LOCATEI6,10:PPINT- I S L ft " 

40 LOCATE10,S:PRINT' 

45 L0CATE16. I2:PRIH7- ■ 

58 PL*Y-L304D0r>0P£JHi3[ J C'."!K-i: i =r 1 .;.-.' '"- ■ 
52 LOCATE10. 10:PRtNT" 
TT LOCATE10.3=PPINT- 
'■-1 LOChTE10.I2:PPINT* 

55 PLHY-03[>0D0? !.-■■■ ;..j[>GD0P- 

56 HEXTSATTRB9.8 



1001 •— 

:-::■■ a;.:'>;-iEN£-.?.j:: :»- K'^-.["S ■.?:> 

■.?£■?■! 

1928 ' 

1339 ' INITIALISATION 

1935 ' 

1-349 F0RK-1TOI88 

1458 PEA0TOO 

1068 MEXTK 

1070 FORK=IT08 

1886 READC«K> 

1999 P1(K)*9 

1196 P2<K>«8 

1 118 NEXTK 

1128 X2»IltT<RJ«©*8e>+H 

1136 IFTfX2>>lTHEHli2e 

1 146 T(X2>"2 

3 159 K3"INT<RND»8e>'M 1 

1169 IFTCX3>'1THEN1I50 

1179 T<X3>=3 

1139 T9'9 



2920 X2 = 

2936 X3=9 

2049 F0PK=11T089 

2959 IFT<KX>2THEM2e7e 

2969 X2-K 

2976 IFT(K>',3THE«28 a e 

2090 X3=K 

2990 NEXT 



ITHEM2220 



2191 ' 

2129 F0RI2=JT03 

2130 IFT<X3*T>< 12 i 
2149 F0PI3-IT08 
2159 IFD'I2>— D'I3v0PT'X3*DM2j*0' I3>»3 
THEN2209 

£169 FOP 14=1 T08 

2179 IT[>a3> = -D' M>0PT<'K3*D< 12 >*Df 13 )*■!>' 
I4>>>1THEN2198 

2180 P2<I2J"P2<I2>+1 
2190 NEXT 14 

2280 NEXTI3 
2210 C0T02239 
2220 P2(I2» — i 
2239 NEXT 1 2 

2249 13=9 

2250 V3-0 
2260 FOR*=>1T03 

2270 IF P2(K>; VI THEN 2309 
2290 03-K 
2299 V3=P2<K> 
2309 P2T<-e 



2310 NEXT 

2329 IFV3>5THEM2340 

2330 PPINT-je sens oa fin prochcll"; 
2340 IFD3=8THEN2476 

2350 T(D(D3)*X3;-3 

2360 T<X3>=1 

2370 GOTO3018 

2736 C>3 = D3*1 

2390 IFD3O3THEN2410 

2400 P3=D3-3 

2410 IFD3O08THEN2498 

2420 PRINT" J'fll PERDU.."! 

2430 PRINT-EN ';T8;' COUPS '"' 

2440 END 

2470 D3=INT'RNC(0>«8*1) 

2436 D8=D3 

2490 lFIFTr[i<D3;«X3 ' > 1 THEN2380 

2596 G0T02358 

3ee8 ■ 

3081 ' 

3010 ' 

3820 FQPI2*1T08 

3838 IFT<X2*tKl2>>>lTHEN3139 

3040 FOPI3=1T03 

3058 IFEKt3>— D<I3>THEH31ie 

3060 IFT(X2»D<I2>*D<I3) >: 1THEN3110 

3070 FO»I4=1T08 

3630 I FD< 14 )— D< I3>0RT<X2*D< IS>*D<13}+0< 

I4)>>lTHCH3iee 

3990 P2'I2>=P2'I2>*t 

3190 NEXTI4 

3119 HEXTI3 

3129 G0T03149 

3138 P1(I2)=-1 

3148 MEXTI2 

3150 D2 = 

3160 V2-9 

3179 F0PK=lTO8 

3180 IF PKKXV2 THEN3220 
3190 D2=K 

3299 V2*PKK> 

3210 Pl(K>-0 

3220 NEXT 

3238 IFD2O8THEH3308 

3269 F0RK-1T08 

3270 IFT(X2*D'K>.>1THEN3290 
3288 D2 = K 

3299 NEXT 

3398 T(X2*D<D2>.''-5 

3319 IFV2>5THEN3570 

3320 PRINT' J« sens votre fin proche ' " " 
:PLAY-05T2AlD0t'0&0PE" 



3591 
3560 
3565 
3566 
3570 



CLS:CLS= COLOR0 

CL3:SCREXN0,3.1 

PLflY-05T2fl5FfiFOFfiFBPEP- 

COH5OLF9:r:L r 5 :CriH3Oi.E0. 22: PRINT 1 



3580 
3598 
3600 
3685 
3618 
3628 
3638 
3648 
3658 
3668 
3678 
3689 
3698 
3769 
3719 
3720 
3739 



F0RK=8T09 

PRINT'";K; --; 

F0RJ-1T018 

CONSOLES: COL0P8 

IFT<K«ie+JX>9THEM363e 

PRINT****'; 

IFT<K»I8*JK>5TMEN3658 

PRINT'***": 

IFT<K*10tJ)O2THEN367O 

PRINT- 1 -; 

IFT<K*10*J)O3THEN3690 

PRINT* 2 ■* 

IFT(K*[e-t-JK>lTHEN37I0 

PRIHT' . •} 

NEXTJ 

PPINT"!SPCf48);K 

NEXTK 

PRINT' 12 3 4 



-IPL0T-O1L2DOOODO- 
3746 PLAV0ST3A4S0SQS0S0SIP- 

4000 ■ -- — 

4081 ' 

4620 02-0 

4638 X>0 

4048 F0RK-IT08 

4858 IFT(D<f-y*X2>:.lTHEN4986 

4860 D2=D2«! 

4070 X=0(K)*X2 

4690 NEXTK 

4099 irD2>0THEN5929 

4188 SCREEN8.2,i:PPINT- J'oj CACNE EN 

T9;- COUPS' ' I" 

4118 END 

3989 • 

5991 ' 

5929 IFD2-1THEN5069 

3825 C0NSOLE23.24 

5830 C0L0R5: PRINT- P «r«j les -;D2;" coi 

S jOuabI«S,l(q U «l , ".. Jt ;-,;,;■ " 

3040 PRINT'li 9 n« puts cologne": 

5845 PLAY*Q4L2TlAlREREREREt1U' 

5*59 C0T03I19 

3*6* X-X-l 

3*7t l-INT(X'I9> 

3*09 C • X -L • 1 9 

3*9* C0NS0L£23,24: C0L0R4! PRINT-vou: 



■U 






3*93 PLAY-03L4T3FARED0NILOP- 

51M GOT05I38 

311* INPUT L.: 

3120 IFC<10RC>80RL<10RL>8TMEN3B38 

5138 X-II*L*C*l 

5140 IFT(X><>1THEN5838 

3158 0*-X-X2 

3168 IFD9>IlORD9<-innEN3e30 



5176 v.* 

5196 F0RK-ITO9 

5229 v«v»i*(D0*: ■ 

5236 «XTK 

5249 IFV-9THEN393* 

5258 TfX>»2 

5266 T(X2>-i 

5278 T9-T8.1 

5388 " - 

5561 ' 

5520 PRINT', v.«Il« ;, se MlmlH, 

3525 PLAY'O5L2"T?;.0MJC.--. 

5538 INPUTL.C 

5548 1FC-'10PC'SORLC!C»LST«EN552» 

555« X«L*I8'C*1 

55S0 [FT. .:■ ■ L'-E-C^ ■ 

5579 T(X>-3 

5588 COTO20I9 

9886 ■ 

9628 INPUT Rf 

9039 IF ?»-. ■ •0-««l!> = ! -i- ■-•«■•■•;>. - 
n'( ICOTO90I0 

9040 RETURN 

10*88 ' 

16M1 ' — INITIALISATION DE LA tRILLE — 

16M2 ' 

10*28 DATA9,9>9.9.?.9.9.9.9.9 
16*36 OATA9. 1.1.1, 1,1. 1.1-1.9 
19648 DATA9, t. 1.1. t. 1, 1.1,1,9 
18*30 t>aTA9,I.l,I,l,l,l.I,!,9 
18068 DATA9. 1, 1, I, 1,1, I. 1. 1.9 
10679 DATA9, 1,1.1.1.1. 1.1,1.9 
1*698 DATA9.I. 1,1.1.1, 1.1.1.9 
10*9* DATA9. I, 1,1,1,1-1, t, I, 9 
18186 DATA9,!,l,l,l,l-l.l,l,9 
16110 DATA9, 9, 9,9,9,9,9,9,9. 9 
10138 DATA-1, 9.-11,-16, 1,-9. 11,10 



LOGIC STORE 

LA MICRO INFORMATIQUE 

FAMILIALE 



P-^FPRJXAT OUT CASSER 

Du 3 au 7 avril en avant-premiere 
dans la micro informatique 
LOGIC STORE LANCE LES SOLDES 
sur des micros de qualite : 




* 



suite de la page 18 



tAZ- 



80 



->640 PSINT 


'■ , !• 


tr* co»pt» iripl*" 


7050 PRINT 


'* * (Ml 


comfit doubl# 


7000 PRINT 


"» * mo 


eampf Iripl* *' 


7670 PRINT 


■Poi-f f 


€i.r uotr* tour tap 


** 88" 






7099 PRINT 


a?o<jr cr>ar»i»r ufw l*ll(>« to 


7685 PRINT 


aaoiiis^ '■ 


uoui a«./ compr... 


'ap»/ ENTER" 






7098 LI-1 : 


CL-IB2 


N-7 


7788 FOR 1- 


10 13 


fOR J-l ro »5 


7710 SCI,.)] 


>l 




'728 NEXT j 


- NE>iT 




7730 FOR I- 


TO 16 




^740 REOO A 


e,c 




7750 SUO-r 


B)-C 


i S(A,16-B)-C 


7^00 SCI6-A 


16-BJ-C 


: SfA,B)"C 


7??e NEXT J 






■■■- ■ OR 1- 


"j I 


i ■ .. , , IN| • ■ 


'790 L»- vv l o BI ,, , , . , 


EESF1 B0HH1I] 


1II1JKL1 


LI - 



7800 L*»L*<'nriflKNNNNh0000WIrW}8RRR*WSSS 

*;S3T 1 1 1 TTIJUUUUUOUUXY2" 
7810 P«-S-RIf.G«('0",ie2) 
7828 FOR I>] 10 76 
7830 READ AOif I ) 

7849 NEXT 1 

7856 GET J£< -• IF ■if'" " GOTO 7850 

7800 REILiPn 

7878 REfl 

8900 R£M"«- - = ■■"■*"»»«* •-■■■«•■«• 
AFFICMAGE du "1(11 i MJ 

8019 REM ..,-,—.,». .- 

8070 PRINI "0 II till ■ 

8838 PRINT " I7345679DBI7345 ' 

8040 PRINT " O0FBE0e0e0E8F0E0C0E0E0F.0 
E0E0E8E0OC' 

8850 FOR 1-1 TO 13 

9069 IF l>9 TliF_" PRINT ' ,I,"F0"; :G0T0 

8899 

8879 PRINT " ;j ;"F0"; 

0080 FOR J-l TO 15 

9098 ;c Sri,j]-I3 THEN PRINT "•' ; : UOl 
BI58 

8190 JF SH.JJ-1? THEN PRINT "'"t : GOT 
8156 

8I10 IF SII,J)-P TNEN PRINT " "i : GOT 
8136 

8129 IK Stl,J)-2 THEN PRINT " . " i I GOT 
815* 

8130 IF S(l,J)-3 TMEN PRINT " , " ; : GOI 
8150 

8140 PRINT CNR4(St!,J)3; 

8158 NEXT J 

8100 PRINT "C2 * 

8170 NEXT 1 



8180 PRINT " EAE3e3e3E3E3E3E3E3E3E3E3 
E3E3£3E3eB- 

8190 PRINT "■■' 

8280 PRINT TABC23J ;"DDBE0E0e0e9O2E9E0E0 
E0OC" 

8218 FOR I-l TO 13 

8220 CURSOR 23, I 

8738 PRINT "FD" irtrt4[ I ) jULCASCr,AA«< 1 ) )-0 
3) 

8740 NEXT 1 

8250 FOR I»I4 TO 76 

8260 CURSOR 34,1-13 

8278 PRINT "F0'iAA4(J ; JUL t flSCT. AA«( H )-0 
3»| 

8798 PRINT TfBC33]i'"E2- 

8730 NEXT I 

8308 PRINT TA8C29) ; 'BFAE0E0F9E0DJ E0E0E8 
E0EB" 

8319 CURSOR 70,7 .'PRINT "OBE9E9E0E0E 

0E9E9OC" 

B328 CURSOR 28,3 ;PRlNT "FO TOTAL FD 

8338 CURSOR 20,4 'PRINT "CaE8E9E8E0E 

0E0E9O3 
8340 FOR I-l TO nj 
8330 CURSOR 28, 1*3.2 'PRINT "FD FO 

8366 CURSOR 2 I , I J3.7 iPRINT N«( I) 

8378 CURSOR 2B, |i3»3 ^PKINT 'FQ 



) [i 



8380 CURSOR 71, I«3.3^RINT If (II 

8390 CURSOR 20, U3,4;PRInT "CBE8E9E0EaE 
0E9E8D3 ■ 

8400 NEXT 1 

8418 CURSOR 20, |*-Jti sprint •EAE3E3E3E3E 
3E3E3EB" 



8470 


RETURN 






8430 
9008 

9010 
9070 


REfl 








F 


H DC PART IF 


FOR (-19 TO 


24 




3039 


CURSOR 6. ( 


"PINT 

■ * 




9040 


m :. | ; 






9858 


CURSOR B,7( 


. i*p|nT ' 


II M*1 A 


plus oc it' rm 


■ 




3066 


PR(Nf TftBK 


). N*t|CK}| 


o i, mini 


3878 


6«KK 






9888 


F OR 1-1 10 


■O 




vv 


:■ ■ ITi 


91*0 




3108 


•OR j- TJ 


ENCAd ■ I ■ 




9118 


T'WLtnsc(nio*(n4(n,j 


l)J-*3) 


3128 


TS-TS.T 






9130 


NEXT J 






9140 


TFtO)-IF(O) 


• IS 




3150 


TFd)-IF(I) 


". 




9)69 


N£XT I 






9178 


FOR !*l TO 


♦j 




9100 


CURSOR 22,3 


3*1 i pRIr- 


T TF(U 


9190 


NEXT 1 






9290 


PRINI "•■■ 






9210 


ENO 






9720 


REM 






10001 


DATA 1,1. 13.1 ,5,7,l,t 


, 13,7,2,2,2. 


6,3,3 


3, 12,3,7,2,5, 1 .2,4,4. 1 


2.4.B,? 


108 IP 


DATA 3,3, 12,0, 2,3, 6, ( 


,3,7,3.2.7,7 


.2,6, 


, 13,0,4,7,0 


B, 12 




1B87I 


UClll. .•.',! 


T.7, 1.1.7, 


1,1,8,16,1.2 


,1.1.3 


.•■I.I 


. IB. IB, IB, 


U 


10031 








Q.P.O, 


R.S.T.U.U.U 


»,».« 
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LE LOGICIEL 
DE LA SEMAINE 



A.E 



..sur COMMODORE 64 




Vous ressentez parfois le 
besoin de vous d&penser ? 
Viser, tirer. detruire. etchap- 
per de justesse a la collision 
mortelle. voila ce que vous 
propose A.E. Avec A.E. vous 
n'aurez pas le temps de souf- 
fler. Les astronefs qui enva- 
hissent la cite que vous devez 
defendre au peril de votre vie 
sont si rapides que seul un 
Lucky Luke du joystick peut 
esperer en arriver a bout ! 
Les astronefs fondent sur 
vous par vagues successives, 
dans le chaos le plus com- 
plet. ce qui ne facilite pas 
votre mission. 



ETOILE ou ASTRONEFS ? 
Trop tard vous explosez dans 
un bruit infernal ! Chaque 
vaisseau detruit augment e 
votre score de fa con variable. 
Bien entendu, vous devez 
real is er un score maximal. 
Vous possedez trois vies, 
mais vous pouvez avec un 
peu d'entrainement, en recu- 
perer une. seion votre score. 
A.E., un jeu d'action et de 
reflexe reserve aux rois de la 
manette de jeu, teste sur 
COMMODORE 64. distribue 
par HEBDOGICIEL. 



PETITES ANNONCES 
GRATUITES 



VENDS PC 1500 + CE 150 + 16Ko 
+ livre + 8 Ko Manuel LM sur 
LH5801 + programmes donl PC 
WORLD, GRAP' H + OTHELLO + 
PC MATH + PC CALC + PC UTIL + 
PC MACRO + PC BANK + 7 K7 de 
jeux {environ 70 jeux) + logicielde 
chargement rapide (valeur 
7000 F) vendu 4000 F Jose GO- 
MES Tel. : 304.63.46 (apres 19 H). 
VENDS SHARP PC 155 : 1200 F + 
CE 159 {8 Ko RAM) : 700 F + Pa- 
pier + stylos + livres + malette:le 
tout 2470 F Cherche contact AP- 
PLE II. Joel LEMOINE 2 rue /\. Ley- 
ge Bat. 28, esc. 295340PERSAN. 
ORIC ! ET ATMOS Echange ou 
Vends plus de 400 logiciels (prix 
symbolique) Robert ESCANDE 
Tel. ; (42) 89.23.44. 
Vends Tl 99/4A sous garantie + 
basic Etendu + magneto + cor- 
don + manettes + modulejeu + 2 
K7 cours Basic et Basic Etendu + 
5 iivres programmation + 1 K7 
avec 30 jeux le tout 3000 F Pierre 
PICARD Tel. : (46) 05.11.02. 
Vends ZX 81 (annee 83) avec cla- 
vier ABS + extension 16K (annee 
84) + carte sonore (annee 84) + li- 
vre + nombreuses K7 de jeux (8) 
(valeurs 1845 F) Vendu : 1300 F 
Pascal GUILLER 1 quai port Breta- 
gne 37000 TOURS. Tel. : (55) 
61.35.42. 

Vends COM, 64 Pal + lecteur K7 + 
FLOPPY VIC 1541 + imprimante 
MSP 801+2 Joysticj + extension 
TOOL;TeleviseurcouleurSECAM 
+ moniteur Video 25cm 12V-220V 
+ telecommande. Vends neufs 
lecteur K7 T07. Monsieur LES- 
BAUPIN Tel. : (97) 75.81.14 (apres 
19 H). 

Vends SPECTRAVIDEO 3V318 + 
lecteur K7 + manettes jeux + di- 
verses K7 et cartouches, (achat 
Janvier 84 : 5000 F) vendu 3800 F 
Tel. : (90) 96.94.36. 



ACHETE programmes pour 
COM. 64. HEBDOGICIEL 1 a 8. 13. 
15. 16, 17. 18 off re a SELMO Thierry 
19 rue du Beam 34500 BEZIERS. 
Cherche regie du jeu LA BATAIL- 
LE D'ANGLETERRE rembourse 
frais. Pour ZX 81. Jose THIBAUD 
Residence Karine 64 appt 61 
17440 AYVNE. 

Achete HEBDOGICIEL n° 1 a 9 
bon etat, 6 francs pieces soit 54 F 
le tout. Thierry CHARR10T 94320 
THIAIS Tel. : 884.25.40 (apres 
18 H). 

Achete Module Basic Etendu 
pour Tl 99/4A Stephane CAMUS, 
tel. : 946.73.62. 

VENDS CANON X07 (16K) + im- 
primante X710 + programmes 
X07 CALC. Le tout en bon etat 
(achete en avril 1984) : 4.500 F J. R 
HEVERAERT tel. : (20) 06,74.85 (a 
partirde17H). 

Recherche toutes documenta- 
tions (hard/soft) pour MOTORO- 
LA microsystems EXORset (H 
6809 set 30) et imprimante Cen- 
tronics 730-2. Ecrire au journal 
(MICHAEL). 

Vends VIC 20 (1/83) + VIC 1210 + 
PS 2000 + VIC 1541 + VIC 111! + VI- 
XEN + VIC 1530 + VIC 1312 + VIC 
1830 + VIC 1902 + Iivres + revues. 
Tres bon etat 9000 F R LECAIL- 
LON83av.du Redon LAROUVIE- 
RE C3 13009 MARSEILLE. 

Achete pour ATARI 800 XL 1 lec- 
teur de disquettes + logiciels sur 
disquettes. Patrick LEFEBVRE 5 
rue Laperousse 78150 LE CHES- 
NAYTel. : 954.08.64. 
VENDS HP87 + support ROMS + 
double lecteur de diskettes S' + 
imprimante HPachete le 6/80{va- 
leurs 60.000) vendu : 30.000 F 
tres bon etat. Monsieur OCRO- 
NET. Le Cardalino 1. bd du Pt Ken- 
nedy ZUP 13090 AIX EN PROVEN- 
CE. 




Cherche Donnateur super sympa 
d'une imprimante pour ORIC 
possibility offre 500 F et aulres 
peripheriques. disk. etc... Ainsi 
que disquettes. Philippe GARRA- 
BOS Tel. : (56) 85.26.37, 
Vends ORIC & 48K (12/83) + 
adaptation PERITEL + 2 cordons 
K7 + 40 programmes le tout 
2300 F Eric DAVID Tel. 
363,49,48. 

Vends Console de jeux video 
(2 joueurs) + K7 de 12 jeux envi- 
rons + K7 course de voiture + 
adaptateur de 220 Volts : etat 
neuf : 400 F (prix a debattre) Tel. : 
(20) 54,00.72. 

Vends Tl 99/4A (8/83) + PERITEL 
+ Cordon K7 + Extended Basic + 
manuels + programmes ; 2000 F 
a debattre + modulateur SECAM 
300 F Bernard CLOUSOT. BP 548 
71017 MACON CEDEX. 
Vends JUPITER ACE (6/83) + ext. 
16 Ko + adaptateur de bus + ext. 
du langage (70 inst.) + 4 Iivres 
FORTH + programmes (jeux, as- 
tronomies, divers) + magneto K7 
et cordons. (Valeur 2500) Vendu 
1500 F Christophe CHAUVEAU 
Route de Rennes Granchamps 
des Fontaines 44240 Tel. : (40) 
63.72.36. 

VDS jeux d'action Reflexion 
pour ORIC 1 48K prix interes- 
sant (1/4 du prix d'achat). 
Maurice RAVAT, 68, rue A. 
France '69800 SAINT PRIEST. 
Tel. : (7) 820.22.68. (18 et 
19 h). 



Vends T07 + extension memoire 
16K + modulateur Pentel/Secam 
+ 3 Iivres + Pictor + K7 Jeux SA- 
TAC. IL L'INTRUS (Valeurs 
6100 F) Vendu 5000 F Michel 
DELTOMBES (3) 044.00 16 
Cherche pour Tl 99/4A module 
Basic Etendu + manuel d'utilisa- 
lion Faire offre au (94) 29.33.86 
Regis DELESOUE. Quartier des 
Lauves. LA CAD1ERE 83740. 

Vends SHARP PC 1500 tres bon 
etat : 1500 F Monsieur STOCK BP 
163 13697 MARTIGUES CEDEX 
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]a Regie 
aCalcul 



ORDINATEUR FAMILIAL Tl 99/4 
CONSOLES ET ACCESSOIRES 

.,..-■■■ 

■ ■ ■ Kuril ' ■ ' 

.fTAMGH 

■ ■ . • , ■ ..-.■, 

. , aafajx 

■..i-.r.ii- 
rEXAS/RACTOLA av« fjt.irr!- 1 ■ 

..... . .■,..,.. ,. :...-.|,ii. [[ :'A', 

marque LAAISAY aw i ■ ■■■ k A 

•PROGRAMMATION SURDISOUETTES : 

.,.,., .;,. .; .,,. ,,,,.,_. 
■ ■•■■■■ ■■■,'■■ •'.<■ <',;.<\ul-nt-; 

■ 

•■•-' ompda 
'UCSDftacaf Linker 
'UCSDftecafEdJfor 
'impurnmwt Fl 99/4 pn ■ •■■ u - ■ 
■Rcnerd'adrafe! 
•'■-,:■■. i !.• programme a 2 
■AwJrala programtnafion i 

.■ vMl-ul 
■I I. ■■'!,. ,!-■ 

■.,. . .- ;, •• .-, .... 

-N H ilr-.i nr/r-.:,iif !'.■■[.'■ I 

If bolbR tfatunuen PHP 1200 « 
:,. tonatneut tJedhquetwspfcn funut 
de dncfjei 

PROGRAMMATION 

Manuel ftBWui imemfileui (anglan] 
• MtVJMEMOffl'avet "."'•■'ii' 



ORGANISATION 



MODULES EDUCATION 
■ (.Won SutMMCI i l 

' ■.!.!(." I || 



MODULE', l.OIWfS 
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